MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / develop™ Technical Journal / develop Issue 24 code / Scriptable Database 1.0a11.sea / Scriptable Database 1.0a11 / Scripting / CoreSuite.cp < prev next >
MacBinary | 1995-10-18 | 27.9 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MS-DOS Code Page Info `(other/dosCodePage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Oct 18 12:28:58 1995, modified Wed Oct 18 12:28:58 1995, creator 'MPS ', type ASCII, 27758 bytes "CoreSuite.cp" , at 0x6cee 622 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 43 6f 72 65 53 75 | 69 74 65 2e 63 70 00 00 |..CoreSu|ite.cp..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 6c 6e 00 | 00 02 6e ac aa db ca ac |.....ln.|..n.....|
|00000060| aa db ca 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 54 f4 00 00 |........|....T...|
|00000080| 2f 2a 0d 09 46 69 6c 65 | 3a 09 09 43 6f 72 65 53 |/*..File|:..CoreS|
|00000090| 75 69 74 65 2e 63 0d 0d | 09 43 6f 6e 74 61 69 6e |uite.c..|.Contain|
|000000a0| 73 3a 09 45 76 65 6e 74 | 20 68 61 6e 64 6c 65 72 |s:.Event| handler|
|000000b0| 73 20 66 6f 72 20 74 68 | 65 20 63 6f 72 65 20 73 |s for th|e core s|
|000000c0| 75 69 74 65 0d 0d 09 57 | 72 69 74 74 65 6e 20 62 |uite...W|ritten b|
|000000d0| 79 3a 09 47 72 65 67 20 | 41 6e 64 65 72 73 6f 6e |y:.Greg |Anderson|
|000000e0| 0d 0d 09 43 6f 70 79 72 | 69 67 68 74 3a 09 a9 20 |...Copyr|ight:.. |
|000000f0| 31 39 39 33 2d 31 39 39 | 35 20 62 79 20 47 72 65 |1993-199|5 by Gre|
|00000100| 67 20 41 6e 64 65 72 73 | 6f 6e 2c 20 61 6c 6c 20 |g Anders|on, all |
|00000110| 72 69 67 68 74 73 20 72 | 65 73 65 72 76 65 64 2e |rights r|eserved.|
|00000120| 0d 0d 09 09 3c 32 39 3e | 09 20 36 2f 32 33 2f 39 |....<29>|. 6/23/9|
|00000130| 35 09 67 61 09 0d 2a 2f | 0d 0d 0d 2f 2f 20 23 69 |5.ga..*/|...// #i|
|00000140| 6e 63 6c 75 64 65 20 22 | 4d 6f 72 65 54 79 70 65 |nclude "|MoreType|
|00000150| 73 2e 68 22 0d 2f 2f 20 | 23 69 6e 63 6c 75 64 65 |s.h".// |#include|
|00000160| 20 22 4d 6f 72 65 4d 65 | 6d 6f 72 79 2e 68 22 0d | "MoreMe|mory.h".|
|00000170| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 41 45 52 65 67 |.#includ|e <AEReg|
|00000180| 69 73 74 72 79 2e 68 3e | 0d 0d 23 69 6e 63 6c 75 |istry.h>|..#inclu|
|00000190| 64 65 20 22 43 6f 72 65 | 53 75 69 74 65 2e 68 22 |de "Core|Suite.h"|
|000001a0| 0d 23 69 6e 63 6c 75 64 | 65 20 22 41 62 73 74 72 |.#includ|e "Abstr|
|000001b0| 61 63 74 53 63 72 69 70 | 74 61 62 6c 65 4f 62 6a |actScrip|tableObj|
|000001c0| 65 63 74 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |ect.h".#|include |
|000001d0| 22 4d 6f 72 65 41 45 4d | 2e 68 22 0d 23 69 6e 63 |"MoreAEM|.h".#inc|
|000001e0| 6c 75 64 65 20 22 53 63 | 72 69 70 74 45 72 72 6f |lude "Sc|riptErro|
|000001f0| 72 73 2e 68 22 0d 0d 2f | 2f 0d 2f 2f 20 46 6f 72 |rs.h"../|/.// For|
|00000200| 20 72 65 73 4e 6f 74 46 | 6f 75 6e 64 0d 2f 2f 0d | resNotF|ound.//.|
|00000210| 23 69 66 6e 64 65 66 20 | 5f 5f 45 52 52 4f 52 53 |#ifndef |__ERRORS|
|00000220| 5f 5f 0d 23 69 6e 63 6c | 75 64 65 20 3c 45 72 72 |__.#incl|ude <Err|
|00000230| 6f 72 73 2e 68 3e 0d 23 | 65 6e 64 69 66 0d 0d 23 |ors.h>.#|endif..#|
|00000240| 69 66 6e 64 65 66 20 5f | 5f 52 45 53 4f 55 52 43 |ifndef _|_RESOURC|
|00000250| 45 53 5f 5f 0d 23 69 6e | 63 6c 75 64 65 20 3c 52 |ES__.#in|clude <R|
|00000260| 65 73 6f 75 72 63 65 73 | 2e 68 3e 0d 23 65 6e 64 |esources|.h>.#end|
|00000270| 69 66 0d 0d 23 69 66 6e | 64 65 66 20 5f 5f 41 45 |if..#ifn|def __AE|
|00000280| 4f 42 4a 45 43 54 53 5f | 5f 0d 23 69 6e 63 6c 75 |OBJECTS_|_.#inclu|
|00000290| 64 65 20 3c 41 45 4f 62 | 6a 65 63 74 73 2e 68 3e |de <AEOb|jects.h>|
|000002a0| 0d 23 65 6e 64 69 66 0d | 0d 23 69 66 6e 64 65 66 |.#endif.|.#ifndef|
|000002b0| 20 5f 5f 41 45 4f 42 4a | 45 43 54 50 41 43 4b 49 | __AEOBJ|ECTPACKI|
|000002c0| 4e 47 5f 5f 0d 23 69 6e | 63 6c 75 64 65 20 3c 41 |NG__.#in|clude <A|
|000002d0| 45 50 61 63 6b 4f 62 6a | 65 63 74 2e 68 3e 0d 23 |EPackObj|ect.h>.#|
|000002e0| 65 6e 64 69 66 0d 0d 23 | 69 66 6e 64 65 66 20 45 |endif..#|ifndef E|
|000002f0| 78 63 65 70 74 69 6f 6e | 73 5f 68 0d 23 69 6e 63 |xception|s_h.#inc|
|00000300| 6c 75 64 65 20 22 45 78 | 63 65 70 74 69 6f 6e 73 |lude "Ex|ceptions|
|00000310| 2e 68 22 0d 23 65 6e 64 | 69 66 0d 0d 23 69 66 6e |.h".#end|if..#ifn|
|00000320| 64 65 66 20 5f 5f 41 53 | 52 45 47 49 53 54 52 59 |def __AS|REGISTRY|
|00000330| 5f 5f 0d 23 69 6e 63 6c | 75 64 65 20 3c 41 53 52 |__.#incl|ude <ASR|
|00000340| 65 67 69 73 74 72 79 2e | 68 3e 0d 23 65 6e 64 69 |egistry.|h>.#endi|
|00000350| 66 0d 0d 23 64 65 66 69 | 6e 65 20 6b 65 79 41 45 |f..#defi|ne keyAE|
|00000360| 55 73 69 6e 67 20 27 75 | 73 69 6e 27 0d 0d 0d 0d |Using 'u|sin'....|
|00000370| 23 69 6e 63 6c 75 64 65 | 20 22 54 72 61 6e 73 61 |#include| "Transa|
|00000380| 63 74 69 6f 6e 2e 68 22 | 0d 0d 23 69 66 20 50 4f |ction.h"|..#if PO|
|00000390| 57 45 52 50 43 0d 09 73 | 74 61 74 69 63 20 52 6f |WERPC..s|tatic Ro|
|000003a0| 75 74 69 6e 65 44 65 73 | 63 72 69 70 74 6f 72 20 |utineDes|criptor |
|000003b0| 67 45 78 69 73 74 73 48 | 61 6e 64 6c 65 72 52 44 |gExistsH|andlerRD|
|000003c0| 09 09 09 3d 20 42 55 49 | 4c 44 5f 52 4f 55 54 49 |...= BUI|LD_ROUTI|
|000003d0| 4e 45 5f 44 45 53 43 52 | 49 50 54 4f 52 28 75 70 |NE_DESCR|IPTOR(up|
|000003e0| 70 41 45 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 50 |pAEEvent|HandlerP|
|000003f0| 72 6f 63 49 6e 66 6f 2c | 20 54 43 6f 72 65 53 75 |rocInfo,| TCoreSu|
|00000400| 69 74 65 3a 3a 44 6f 45 | 78 69 73 74 73 29 3b 0d |ite::DoE|xists);.|
|00000410| 09 73 74 61 74 69 63 20 | 52 6f 75 74 69 6e 65 44 |.static |RoutineD|
|00000420| 65 73 63 72 69 70 74 6f | 72 20 67 47 65 74 44 61 |escripto|r gGetDa|
|00000430| 74 61 48 61 6e 64 6c 65 | 72 52 44 09 09 09 3d 20 |taHandle|rRD...= |
|00000440| 42 55 49 4c 44 5f 52 4f | 55 54 49 4e 45 5f 44 45 |BUILD_RO|UTINE_DE|
|00000450| 53 43 52 49 50 54 4f 52 | 28 75 70 70 41 45 45 76 |SCRIPTOR|(uppAEEv|
|00000460| 65 6e 74 48 61 6e 64 6c | 65 72 50 72 6f 63 49 6e |entHandl|erProcIn|
|00000470| 66 6f 2c 20 54 43 6f 72 | 65 53 75 69 74 65 3a 3a |fo, TCor|eSuite::|
|00000480| 44 6f 47 65 74 44 61 74 | 61 29 3b 0d 09 73 74 61 |DoGetDat|a);..sta|
|00000490| 74 69 63 20 52 6f 75 74 | 69 6e 65 44 65 73 63 72 |tic Rout|ineDescr|
|000004a0| 69 70 74 6f 72 20 67 53 | 65 74 44 61 74 61 48 61 |iptor gS|etDataHa|
|000004b0| 6e 64 6c 65 72 52 44 09 | 09 09 3d 20 42 55 49 4c |ndlerRD.|..= BUIL|
|000004c0| 44 5f 52 4f 55 54 49 4e | 45 5f 44 45 53 43 52 49 |D_ROUTIN|E_DESCRI|
|000004d0| 50 54 4f 52 28 75 70 70 | 41 45 45 76 65 6e 74 48 |PTOR(upp|AEEventH|
|000004e0| 61 6e 64 6c 65 72 50 72 | 6f 63 49 6e 66 6f 2c 20 |andlerPr|ocInfo, |
|000004f0| 54 43 6f 72 65 53 75 69 | 74 65 3a 3a 44 6f 53 65 |TCoreSui|te::DoSe|
|00000500| 74 44 61 74 61 29 3b 0d | 09 73 74 61 74 69 63 20 |tData);.|.static |
|00000510| 52 6f 75 74 69 6e 65 44 | 65 73 63 72 69 70 74 6f |RoutineD|escripto|
|00000520| 72 20 67 47 65 74 44 61 | 74 61 53 69 7a 65 48 61 |r gGetDa|taSizeHa|
|00000530| 6e 64 6c 65 72 52 44 09 | 09 3d 20 42 55 49 4c 44 |ndlerRD.|.= BUILD|
|00000540| 5f 52 4f 55 54 49 4e 45 | 5f 44 45 53 43 52 49 50 |_ROUTINE|_DESCRIP|
|00000550| 54 4f 52 28 75 70 70 41 | 45 45 76 65 6e 74 48 61 |TOR(uppA|EEventHa|
|00000560| 6e 64 6c 65 72 50 72 6f | 63 49 6e 66 6f 2c 20 54 |ndlerPro|cInfo, T|
|00000570| 43 6f 72 65 53 75 69 74 | 65 3a 3a 44 6f 47 65 74 |CoreSuit|e::DoGet|
|00000580| 44 61 74 61 53 69 7a 65 | 29 3b 0d 09 73 74 61 74 |DataSize|);..stat|
|00000590| 69 63 20 52 6f 75 74 69 | 6e 65 44 65 73 63 72 69 |ic Routi|neDescri|
|000005a0| 70 74 6f 72 20 67 4e 65 | 77 45 6c 65 6d 65 6e 74 |ptor gNe|wElement|
|000005b0| 48 61 6e 64 6c 65 72 52 | 44 09 09 3d 20 42 55 49 |HandlerR|D..= BUI|
|000005c0| 4c 44 5f 52 4f 55 54 49 | 4e 45 5f 44 45 53 43 52 |LD_ROUTI|NE_DESCR|
|000005d0| 49 50 54 4f 52 28 75 70 | 70 41 45 45 76 65 6e 74 |IPTOR(up|pAEEvent|
|000005e0| 48 61 6e 64 6c 65 72 50 | 72 6f 63 49 6e 66 6f 2c |HandlerP|rocInfo,|
|000005f0| 20 54 43 6f 72 65 53 75 | 69 74 65 3a 3a 44 6f 4e | TCoreSu|ite::DoN|
|00000600| 65 77 45 6c 65 6d 65 6e | 74 29 3b 0d 09 73 74 61 |ewElemen|t);..sta|
|00000610| 74 69 63 20 52 6f 75 74 | 69 6e 65 44 65 73 63 72 |tic Rout|ineDescr|
|00000620| 69 70 74 6f 72 20 67 4e | 75 6d 62 65 72 4f 66 45 |iptor gN|umberOfE|
|00000630| 6c 65 6d 65 6e 74 73 48 | 61 6e 64 6c 65 72 52 44 |lementsH|andlerRD|
|00000640| 09 3d 20 42 55 49 4c 44 | 5f 52 4f 55 54 49 4e 45 |.= BUILD|_ROUTINE|
|00000650| 5f 44 45 53 43 52 49 50 | 54 4f 52 28 75 70 70 41 |_DESCRIP|TOR(uppA|
|00000660| 45 45 76 65 6e 74 48 61 | 6e 64 6c 65 72 50 72 6f |EEventHa|ndlerPro|
|00000670| 63 49 6e 66 6f 2c 20 54 | 43 6f 72 65 53 75 69 74 |cInfo, T|CoreSuit|
|00000680| 65 3a 3a 44 6f 4e 75 6d | 62 65 72 4f 66 45 6c 65 |e::DoNum|berOfEle|
|00000690| 6d 65 6e 74 73 29 3b 0d | 09 73 74 61 74 69 63 20 |ments);.|.static |
|000006a0| 52 6f 75 74 69 6e 65 44 | 65 73 63 72 69 70 74 6f |RoutineD|escripto|
|000006b0| 72 20 67 4f 70 65 6e 48 | 61 6e 64 6c 65 72 52 44 |r gOpenH|andlerRD|
|000006c0| 09 09 09 09 3d 20 42 55 | 49 4c 44 5f 52 4f 55 54 |....= BU|ILD_ROUT|
|000006d0| 49 4e 45 5f 44 45 53 43 | 52 49 50 54 4f 52 28 75 |INE_DESC|RIPTOR(u|
|000006e0| 70 70 41 45 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |ppAEEven|tHandler|
|000006f0| 50 72 6f 63 49 6e 66 6f | 2c 20 54 43 6f 72 65 53 |ProcInfo|, TCoreS|
|00000700| 75 69 74 65 3a 3a 44 6f | 4f 70 65 6e 29 3b 0d 09 |uite::Do|Open);..|
|00000710| 73 74 61 74 69 63 20 52 | 6f 75 74 69 6e 65 44 65 |static R|outineDe|
|00000720| 73 63 72 69 70 74 6f 72 | 20 67 4d 6f 76 65 48 61 |scriptor| gMoveHa|
|00000730| 6e 64 6c 65 72 52 44 09 | 09 09 09 3d 20 42 55 49 |ndlerRD.|...= BUI|
|00000740| 4c 44 5f 52 4f 55 54 49 | 4e 45 5f 44 45 53 43 52 |LD_ROUTI|NE_DESCR|
|00000750| 49 50 54 4f 52 28 75 70 | 70 41 45 45 76 65 6e 74 |IPTOR(up|pAEEvent|
|00000760| 48 61 6e 64 6c 65 72 50 | 72 6f 63 49 6e 66 6f 2c |HandlerP|rocInfo,|
|00000770| 20 54 43 6f 72 65 53 75 | 69 74 65 3a 3a 44 6f 4d | TCoreSu|ite::DoM|
|00000780| 6f 76 65 29 3b 0d 0d 09 | 41 45 45 76 65 6e 74 48 |ove);...|AEEventH|
|00000790| 61 6e 64 6c 65 72 55 50 | 50 20 67 43 6f 6d 6d 61 |andlerUP|P gComma|
|000007a0| 6e 64 48 61 6e 64 6c 65 | 72 55 50 50 20 3d 20 6e |ndHandle|rUPP = n|
|000007b0| 69 6c 3b 0d 0d 23 65 6c | 73 65 0d 09 41 45 45 76 |il;..#el|se..AEEv|
|000007c0| 65 6e 74 48 61 6e 64 6c | 65 72 50 72 6f 63 50 74 |entHandl|erProcPt|
|000007d0| 72 20 67 45 78 69 73 74 | 73 48 61 6e 64 6c 65 72 |r gExist|sHandler|
|000007e0| 09 09 09 09 3d 20 28 41 | 45 45 76 65 6e 74 48 61 |....= (A|EEventHa|
|000007f0| 6e 64 6c 65 72 50 72 6f | 63 50 74 72 29 20 26 54 |ndlerPro|cPtr) &T|
|00000800| 43 6f 72 65 53 75 69 74 | 65 3a 3a 44 6f 45 78 69 |CoreSuit|e::DoExi|
|00000810| 73 74 73 3b 0d 09 41 45 | 45 76 65 6e 74 48 61 6e |sts;..AE|EventHan|
|00000820| 64 6c 65 72 50 72 6f 63 | 50 74 72 20 67 47 65 74 |dlerProc|Ptr gGet|
|00000830| 44 61 74 61 48 61 6e 64 | 6c 65 72 09 09 09 09 3d |DataHand|ler....=|
|00000840| 20 28 41 45 45 76 65 6e | 74 48 61 6e 64 6c 65 72 | (AEEven|tHandler|
|00000850| 50 72 6f 63 50 74 72 29 | 20 26 54 43 6f 72 65 53 |ProcPtr)| &TCoreS|
|00000860| 75 69 74 65 3a 3a 44 6f | 47 65 74 44 61 74 61 3b |uite::Do|GetData;|
|00000870| 0d 09 41 45 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |..AEEven|tHandler|
|00000880| 50 72 6f 63 50 74 72 20 | 67 53 65 74 44 61 74 61 |ProcPtr |gSetData|
|00000890| 48 61 6e 64 6c 65 72 09 | 09 09 09 3d 20 28 41 45 |Handler.|...= (AE|
|000008a0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 50 72 6f 63 |EventHan|dlerProc|
|000008b0| 50 74 72 29 20 26 54 43 | 6f 72 65 53 75 69 74 65 |Ptr) &TC|oreSuite|
|000008c0| 3a 3a 44 6f 53 65 74 44 | 61 74 61 3b 0d 09 41 45 |::DoSetD|ata;..AE|
|000008d0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 50 72 6f 63 |EventHan|dlerProc|
|000008e0| 50 74 72 20 67 47 65 74 | 44 61 74 61 53 69 7a 65 |Ptr gGet|DataSize|
|000008f0| 48 61 6e 64 6c 65 72 09 | 09 09 3d 20 28 41 45 45 |Handler.|..= (AEE|
|00000900| 76 65 6e 74 48 61 6e 64 | 6c 65 72 50 72 6f 63 50 |ventHand|lerProcP|
|00000910| 74 72 29 20 26 54 43 6f | 72 65 53 75 69 74 65 3a |tr) &TCo|reSuite:|
|00000920| 3a 44 6f 47 65 74 44 61 | 74 61 53 69 7a 65 3b 0d |:DoGetDa|taSize;.|
|00000930| 09 41 45 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 50 |.AEEvent|HandlerP|
|00000940| 72 6f 63 50 74 72 20 67 | 4e 65 77 45 6c 65 6d 65 |rocPtr g|NewEleme|
|00000950| 6e 74 48 61 6e 64 6c 65 | 72 09 09 09 3d 20 28 41 |ntHandle|r...= (A|
|00000960| 45 45 76 65 6e 74 48 61 | 6e 64 6c 65 72 50 72 6f |EEventHa|ndlerPro|
|00000970| 63 50 74 72 29 20 26 54 | 43 6f 72 65 53 75 69 74 |cPtr) &T|CoreSuit|
|00000980| 65 3a 3a 44 6f 4e 65 77 | 45 6c 65 6d 65 6e 74 3b |e::DoNew|Element;|
|00000990| 0d 09 41 45 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |..AEEven|tHandler|
|000009a0| 50 72 6f 63 50 74 72 20 | 67 4e 75 6d 62 65 72 4f |ProcPtr |gNumberO|
|000009b0| 66 45 6c 65 6d 65 6e 74 | 73 48 61 6e 64 6c 65 72 |fElement|sHandler|
|000009c0| 09 09 3d 20 28 41 45 45 | 76 65 6e 74 48 61 6e 64 |..= (AEE|ventHand|
|000009d0| 6c 65 72 50 72 6f 63 50 | 74 72 29 20 26 54 43 6f |lerProcP|tr) &TCo|
|000009e0| 72 65 53 75 69 74 65 3a | 3a 44 6f 4e 75 6d 62 65 |reSuite:|:DoNumbe|
|000009f0| 72 4f 66 45 6c 65 6d 65 | 6e 74 73 3b 0d 09 41 45 |rOfEleme|nts;..AE|
|00000a00| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 50 72 6f 63 |EventHan|dlerProc|
|00000a10| 50 74 72 20 67 43 6f 6d | 6d 61 6e 64 48 61 6e 64 |Ptr gCom|mandHand|
|00000a20| 6c 65 72 09 09 09 09 3d | 20 28 41 45 45 76 65 6e |ler....=| (AEEven|
|00000a30| 74 48 61 6e 64 6c 65 72 | 50 72 6f 63 50 74 72 29 |tHandler|ProcPtr)|
|00000a40| 20 26 54 43 6f 72 65 53 | 75 69 74 65 3a 3a 44 6f | &TCoreS|uite::Do|
|00000a50| 43 6f 6d 6d 61 6e 64 3b | 0d 09 41 45 45 76 65 6e |Command;|..AEEven|
|00000a60| 74 48 61 6e 64 6c 65 72 | 50 72 6f 63 50 74 72 20 |tHandler|ProcPtr |
|00000a70| 67 4f 70 65 6e 48 61 6e | 64 6c 65 72 09 09 09 09 |gOpenHan|dler....|
|00000a80| 09 3d 20 28 41 45 45 76 | 65 6e 74 48 61 6e 64 6c |.= (AEEv|entHandl|
|00000a90| 65 72 50 72 6f 63 50 74 | 72 29 20 26 54 43 6f 72 |erProcPt|r) &TCor|
|00000aa0| 65 53 75 69 74 65 3a 3a | 44 6f 4f 70 65 6e 3b 0d |eSuite::|DoOpen;.|
|00000ab0| 09 41 45 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 50 |.AEEvent|HandlerP|
|00000ac0| 72 6f 63 50 74 72 20 67 | 4d 6f 76 65 48 61 6e 64 |rocPtr g|MoveHand|
|00000ad0| 6c 65 72 09 09 09 09 09 | 3d 20 28 41 45 45 76 65 |ler.....|= (AEEve|
|00000ae0| 6e 74 48 61 6e 64 6c 65 | 72 50 72 6f 63 50 74 72 |ntHandle|rProcPtr|
|00000af0| 29 20 26 54 43 6f 72 65 | 53 75 69 74 65 3a 3a 44 |) &TCore|Suite::D|
|00000b00| 6f 4d 6f 76 65 3b 0d 23 | 65 6e 64 69 66 0d 0d 2f |oMove;.#|endif../|
|00000b10| 2f 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/-------|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2f 2f 20 54 43 6f |--------|-.// TCo|
|00000b70| 72 65 53 75 69 74 65 3a | 3a 49 6e 73 74 61 6c 6c |reSuite:|:Install|
|00000b80| 41 45 48 61 6e 64 6c 65 | 72 73 3a 20 0d 2f 2f 2d |AEHandle|rs: .//-|
|00000b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 0d | 76 6f 69 64 20 54 43 6f |-------.|void TCo|
|00000bf0| 72 65 53 75 69 74 65 3a | 3a 49 6e 73 74 61 6c 6c |reSuite:|:Install|
|00000c00| 41 45 48 61 6e 64 6c 65 | 72 73 28 29 0d 09 7b 09 |AEHandle|rs()..{.|
|00000c10| 0d 23 69 66 20 50 4f 57 | 45 52 50 43 0d 09 2f 2f |.#if POW|ERPC..//|
|00000c20| 20 65 76 65 6e 74 73 20 | 66 72 6f 6d 20 74 68 65 | events |from the|
|00000c30| 20 72 65 71 75 69 72 65 | 64 20 73 75 69 74 65 0d | require|d suite.|
|00000c40| 0d 09 67 43 6f 6d 6d 61 | 6e 64 48 61 6e 64 6c 65 |..gComma|ndHandle|
|00000c50| 72 55 50 50 09 3d 20 4e | 65 77 52 6f 75 74 69 6e |rUPP.= N|ewRoutin|
|00000c60| 65 44 65 73 63 72 69 70 | 74 6f 72 28 28 50 72 6f |eDescrip|tor((Pro|
|00000c70| 63 50 74 72 29 20 26 54 | 43 6f 72 65 53 75 69 74 |cPtr) &T|CoreSuit|
|00000c80| 65 3a 3a 44 6f 43 6f 6d | 6d 61 6e 64 2c 20 75 70 |e::DoCom|mand, up|
|00000c90| 70 41 45 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 50 |pAEEvent|HandlerP|
|00000ca0| 72 6f 63 49 6e 66 6f 2c | 20 47 65 74 43 75 72 72 |rocInfo,| GetCurr|
|00000cb0| 65 6e 74 49 53 41 28 29 | 29 3b 0d 09 46 61 69 6c |entISA()|);..Fail|
|00000cc0| 4e 69 6c 28 67 43 6f 6d | 6d 61 6e 64 48 61 6e 64 |Nil(gCom|mandHand|
|00000cd0| 6c 65 72 55 50 50 29 3b | 0d 09 0d 09 2f 2f 0d 09 |lerUPP);|....//..|
|00000ce0| 2f 2f 20 6b 41 45 4f 70 | 65 6e 20 69 73 20 27 6f |// kAEOp|en is 'o|
|00000cf0| 64 6f 63 27 2c 20 62 75 | 74 20 77 65 20 61 6c 73 |doc', bu|t we als|
|00000d00| 6f 20 68 61 76 65 20 61 | 6e 20 27 6f 70 65 6e 27 |o have a|n 'open'|
|00000d10| 20 65 76 65 6e 74 20 69 | 6e 20 74 68 65 20 72 65 | event i|n the re|
|00000d20| 71 75 69 72 65 64 20 73 | 75 69 74 65 20 64 75 65 |quired s|uite due|
|00000d30| 20 74 6f 0d 09 2f 2f 20 | 46 69 6e 64 65 72 20 37 | to..// |Finder 7|
|00000d40| 2e 30 20 6f 64 64 69 74 | 69 65 73 20 28 6e 6f 74 |.0 oddit|ies (not|
|00000d50| 20 6e 65 65 64 65 64 20 | 69 6e 20 74 68 65 20 53 | needed |in the S|
|00000d60| 63 72 69 70 74 61 62 6c | 65 20 44 61 74 61 62 61 |criptabl|e Databa|
|00000d70| 73 65 2c 20 62 75 74 2e | 2e 2e 29 0d 09 2f 2f 0d |se, but.|..)..//.|
|00000d80| 09 46 61 69 6c 45 72 72 | 28 41 45 49 6e 73 74 61 |.FailErr|(AEInsta|
|00000d90| 6c 6c 45 76 65 6e 74 48 | 61 6e 64 6c 65 72 28 6b |llEventH|andler(k|
|00000da0| 43 6f 72 65 45 76 65 6e | 74 43 6c 61 73 73 2c 20 |CoreEven|tClass, |
|00000db0| 27 6f 70 65 6e 27 2c 20 | 26 67 4f 70 65 6e 48 61 |'open', |&gOpenHa|
|00000dc0| 6e 64 6c 65 72 52 44 2c | 20 6b 41 45 4f 70 65 6e |ndlerRD,| kAEOpen|
|00000dd0| 2c 20 66 61 6c 73 65 29 | 29 3b 0d 0d 09 46 61 69 |, false)|);...Fai|
|00000de0| 6c 45 72 72 28 41 45 49 | 6e 73 74 61 6c 6c 45 76 |lErr(AEI|nstallEv|
|00000df0| 65 6e 74 48 61 6e 64 6c | 65 72 28 6b 43 6f 72 65 |entHandl|er(kCore|
|00000e00| 45 76 65 6e 74 43 6c 61 | 73 73 2c 20 6b 41 45 4f |EventCla|ss, kAEO|
|00000e10| 70 65 6e 2c 20 26 67 4f | 70 65 6e 48 61 6e 64 6c |pen, &gO|penHandl|
|00000e20| 65 72 52 44 2c 20 6b 41 | 45 4f 70 65 6e 2c 20 66 |erRD, kA|EOpen, f|
|00000e30| 61 6c 73 65 29 29 3b 0d | 09 46 61 69 6c 45 72 72 |alse));.|.FailErr|
|00000e40| 28 41 45 49 6e 73 74 61 | 6c 6c 45 76 65 6e 74 48 |(AEInsta|llEventH|
|00000e50| 61 6e 64 6c 65 72 28 6b | 43 6f 72 65 45 76 65 6e |andler(k|CoreEven|
|00000e60| 74 43 6c 61 73 73 2c 20 | 6b 41 45 50 72 69 6e 74 |tClass, |kAEPrint|
|00000e70| 2c 20 67 43 6f 6d 6d 61 | 6e 64 48 61 6e 64 6c 65 |, gComma|ndHandle|
|00000e80| 72 55 50 50 2c 20 6b 41 | 45 50 72 69 6e 74 2c 20 |rUPP, kA|EPrint, |
|00000e90| 66 61 6c 73 65 29 29 3b | 0d 09 09 09 0d 09 2f 2f |false));|......//|
|00000ea0| 20 65 76 65 6e 74 73 20 | 66 72 6f 6d 20 74 68 65 | events |from the|
|00000eb0| 20 63 6f 72 65 20 73 75 | 69 74 65 0d 09 0d 09 46 | core su|ite....F|
|00000ec0| 61 69 6c 45 72 72 28 41 | 45 49 6e 73 74 61 6c 6c |ailErr(A|EInstall|
|00000ed0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 28 6b 41 45 |EventHan|dler(kAE|
|00000ee0| 43 6f 72 65 53 75 69 74 | 65 2c 20 6b 41 45 44 6f |CoreSuit|e, kAEDo|
|00000ef0| 4f 62 6a 65 63 74 73 45 | 78 69 73 74 2c 20 26 67 |ObjectsE|xist, &g|
|00000f00| 45 78 69 73 74 73 48 61 | 6e 64 6c 65 72 52 44 2c |ExistsHa|ndlerRD,|
|00000f10| 20 30 2c 20 66 61 6c 73 | 65 29 29 3b 0d 09 46 61 | 0, fals|e));..Fa|
|00000f20| 69 6c 45 72 72 28 41 45 | 49 6e 73 74 61 6c 6c 45 |ilErr(AE|InstallE|
|00000f30| 76 65 6e 74 48 61 6e 64 | 6c 65 72 28 6b 41 45 43 |ventHand|ler(kAEC|
|00000f40| 6f 72 65 53 75 69 74 65 | 2c 20 6b 41 45 47 65 74 |oreSuite|, kAEGet|
|00000f50| 44 61 74 61 2c 20 26 67 | 47 65 74 44 61 74 61 48 |Data, &g|GetDataH|
|00000f60| 61 6e 64 6c 65 72 52 44 | 2c 20 30 2c 20 66 61 6c |andlerRD|, 0, fal|
|00000f70| 73 65 29 29 3b 0d 09 46 | 61 69 6c 45 72 72 28 41 |se));..F|ailErr(A|
|00000f80| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|00000f90| 64 6c 65 72 28 6b 41 45 | 43 6f 72 65 53 75 69 74 |dler(kAE|CoreSuit|
|00000fa0| 65 2c 20 6b 41 45 53 65 | 74 44 61 74 61 2c 20 26 |e, kAESe|tData, &|
|00000fb0| 67 53 65 74 44 61 74 61 | 48 61 6e 64 6c 65 72 52 |gSetData|HandlerR|
|00000fc0| 44 2c 20 30 2c 20 66 61 | 6c 73 65 29 29 3b 0d 09 |D, 0, fa|lse));..|
|00000fd0| 46 61 69 6c 45 72 72 28 | 41 45 49 6e 73 74 61 6c |FailErr(|AEInstal|
|00000fe0| 6c 45 76 65 6e 74 48 61 | 6e 64 6c 65 72 28 6b 41 |lEventHa|ndler(kA|
|00000ff0| 45 43 6f 72 65 53 75 69 | 74 65 2c 20 6b 41 45 47 |ECoreSui|te, kAEG|
|00001000| 65 74 44 61 74 61 53 69 | 7a 65 2c 20 26 67 47 65 |etDataSi|ze, &gGe|
|00001010| 74 44 61 74 61 53 69 7a | 65 48 61 6e 64 6c 65 72 |tDataSiz|eHandler|
|00001020| 52 44 2c 20 30 2c 20 66 | 61 6c 73 65 29 29 3b 0d |RD, 0, f|alse));.|
|00001030| 09 46 61 69 6c 45 72 72 | 28 41 45 49 6e 73 74 61 |.FailErr|(AEInsta|
|00001040| 6c 6c 45 76 65 6e 74 48 | 61 6e 64 6c 65 72 28 6b |llEventH|andler(k|
|00001050| 41 45 43 6f 72 65 53 75 | 69 74 65 2c 20 6b 41 45 |AECoreSu|ite, kAE|
|00001060| 43 72 65 61 74 65 45 6c | 65 6d 65 6e 74 2c 20 26 |CreateEl|ement, &|
|00001070| 67 4e 65 77 45 6c 65 6d | 65 6e 74 48 61 6e 64 6c |gNewElem|entHandl|
|00001080| 65 72 52 44 2c 20 30 2c | 20 66 61 6c 73 65 29 29 |erRD, 0,| false))|
|00001090| 3b 0d 09 46 61 69 6c 45 | 72 72 28 41 45 49 6e 73 |;..FailE|rr(AEIns|
|000010a0| 74 61 6c 6c 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |tallEven|tHandler|
|000010b0| 28 6b 41 45 43 6f 72 65 | 53 75 69 74 65 2c 20 6b |(kAECore|Suite, k|
|000010c0| 41 45 43 6f 75 6e 74 45 | 6c 65 6d 65 6e 74 73 2c |AECountE|lements,|
|000010d0| 20 26 67 4e 75 6d 62 65 | 72 4f 66 45 6c 65 6d 65 | &gNumbe|rOfEleme|
|000010e0| 6e 74 73 48 61 6e 64 6c | 65 72 52 44 2c 20 30 2c |ntsHandl|erRD, 0,|
|000010f0| 20 66 61 6c 73 65 29 29 | 3b 0d 0d 09 46 61 69 6c | false))|;...Fail|
|00001100| 45 72 72 28 41 45 49 6e | 73 74 61 6c 6c 45 76 65 |Err(AEIn|stallEve|
|00001110| 6e 74 48 61 6e 64 6c 65 | 72 28 6b 41 45 43 6f 72 |ntHandle|r(kAECor|
|00001120| 65 53 75 69 74 65 2c 20 | 6b 41 45 43 6c 6f 6e 65 |eSuite, |kAEClone|
|00001130| 2c 20 26 67 4d 6f 76 65 | 48 61 6e 64 6c 65 72 52 |, &gMove|HandlerR|
|00001140| 44 2c 20 6b 41 45 43 6c | 6f 6e 65 2c 20 66 61 6c |D, kAECl|one, fal|
|00001150| 73 65 29 29 3b 0d 09 46 | 61 69 6c 45 72 72 28 41 |se));..F|ailErr(A|
|00001160| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|00001170| 64 6c 65 72 28 6b 41 45 | 43 6f 72 65 53 75 69 74 |dler(kAE|CoreSuit|
|00001180| 65 2c 20 6b 41 45 44 65 | 6c 65 74 65 2c 20 67 43 |e, kAEDe|lete, gC|
|00001190| 6f 6d 6d 61 6e 64 48 61 | 6e 64 6c 65 72 55 50 50 |ommandHa|ndlerUPP|
|000011a0| 2c 20 6b 41 45 44 65 6c | 65 74 65 2c 20 66 61 6c |, kAEDel|ete, fal|
|000011b0| 73 65 29 29 3b 0d 09 46 | 61 69 6c 45 72 72 28 41 |se));..F|ailErr(A|
|000011c0| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|000011d0| 64 6c 65 72 28 6b 41 45 | 43 6f 72 65 53 75 69 74 |dler(kAE|CoreSuit|
|000011e0| 65 2c 20 6b 41 45 43 6c | 6f 73 65 2c 20 67 43 6f |e, kAECl|ose, gCo|
|000011f0| 6d 6d 61 6e 64 48 61 6e | 64 6c 65 72 55 50 50 2c |mmandHan|dlerUPP,|
|00001200| 20 6b 41 45 43 6c 6f 73 | 65 2c 20 66 61 6c 73 65 | kAEClos|e, false|
|00001210| 29 29 3b 0d 09 46 61 69 | 6c 45 72 72 28 41 45 49 |));..Fai|lErr(AEI|
|00001220| 6e 73 74 61 6c 6c 45 76 | 65 6e 74 48 61 6e 64 6c |nstallEv|entHandl|
|00001230| 65 72 28 6b 41 45 43 6f | 72 65 53 75 69 74 65 2c |er(kAECo|reSuite,|
|00001240| 20 6b 41 45 4d 6f 76 65 | 2c 20 26 67 4d 6f 76 65 | kAEMove|, &gMove|
|00001250| 48 61 6e 64 6c 65 72 52 | 44 2c 20 6b 41 45 4d 6f |HandlerR|D, kAEMo|
|00001260| 76 65 2c 20 66 61 6c 73 | 65 29 29 3b 0d 09 46 61 |ve, fals|e));..Fa|
|00001270| 69 6c 45 72 72 28 41 45 | 49 6e 73 74 61 6c 6c 45 |ilErr(AE|InstallE|
|00001280| 76 65 6e 74 48 61 6e 64 | 6c 65 72 28 6b 41 45 43 |ventHand|ler(kAEC|
|00001290| 6f 72 65 53 75 69 74 65 | 2c 20 6b 41 45 53 61 76 |oreSuite|, kAESav|
|000012a0| 65 2c 20 26 67 43 6f 6d | 6d 61 6e 64 48 61 6e 64 |e, &gCom|mandHand|
|000012b0| 6c 65 72 55 50 50 2c 20 | 6b 41 45 53 61 76 65 2c |lerUPP, |kAESave,|
|000012c0| 20 66 61 6c 73 65 29 29 | 3b 0d 0d 0d 23 65 6c 73 | false))|;...#els|
|000012d0| 65 0d 09 2f 2f 20 65 76 | 65 6e 74 73 20 66 72 6f |e..// ev|ents fro|
|000012e0| 6d 20 74 68 65 20 72 65 | 71 75 69 72 65 64 20 73 |m the re|quired s|
|000012f0| 75 69 74 65 0d 09 0d 09 | 2f 2f 0d 09 2f 2f 20 a5 |uite....|//..// .|
|00001300| a5 a5 ca 4f 6b 61 79 2c | 20 49 20 73 63 72 65 77 |...Okay,| I screw|
|00001310| 65 64 20 75 70 2e 20 20 | 6b 41 45 4f 70 65 6e 20 |ed up.  |kAEOpen |
|00001320| 69 73 20 27 6f 64 6f 63 | 27 2c 20 62 75 74 0d 09 |is 'odoc|', but..|
|00001330| 2f 2f 20 42 75 6e 67 65 | 65 20 65 78 70 65 63 74 |// Bunge|e expect|
|00001340| 73 20 27 6f 70 65 6e 27 | 20 74 6f 20 62 65 20 68 |s 'open'| to be h|
|00001350| 61 6e 64 6c 65 64 20 62 | 79 20 75 73 2e 20 20 53 |andled b|y us.  S|
|00001360| 6f 20 70 61 69 6e 66 75 | 6c 2e 2e 2e 0d 09 2f 2f |o painfu|l.....//|
|00001370| 0d 09 46 61 69 6c 45 72 | 72 28 41 45 49 6e 73 74 |..FailEr|r(AEInst|
|00001380| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|00001390| 6b 43 6f 72 65 45 76 65 | 6e 74 43 6c 61 73 73 2c |kCoreEve|ntClass,|
|000013a0| 20 27 6f 70 65 6e 27 2c | 20 67 4f 70 65 6e 48 61 | 'open',| gOpenHa|
|000013b0| 6e 64 6c 65 72 2c 20 6b | 41 45 4f 70 65 6e 2c 20 |ndler, k|AEOpen, |
|000013c0| 66 61 6c 73 65 29 29 3b | 0d 0d 09 46 61 69 6c 45 |false));|...FailE|
|000013d0| 72 72 28 41 45 49 6e 73 | 74 61 6c 6c 45 76 65 6e |rr(AEIns|tallEven|
|000013e0| 74 48 61 6e 64 6c 65 72 | 28 6b 43 6f 72 65 45 76 |tHandler|(kCoreEv|
|000013f0| 65 6e 74 43 6c 61 73 73 | 2c 20 6b 41 45 4f 70 65 |entClass|, kAEOpe|
|00001400| 6e 2c 20 67 4f 70 65 6e | 48 61 6e 64 6c 65 72 2c |n, gOpen|Handler,|
|00001410| 20 6b 41 45 4f 70 65 6e | 2c 20 66 61 6c 73 65 29 | kAEOpen|, false)|
|00001420| 29 3b 0d 09 46 61 69 6c | 45 72 72 28 41 45 49 6e |);..Fail|Err(AEIn|
|00001430| 73 74 61 6c 6c 45 76 65 | 6e 74 48 61 6e 64 6c 65 |stallEve|ntHandle|
|00001440| 72 28 6b 43 6f 72 65 45 | 76 65 6e 74 43 6c 61 73 |r(kCoreE|ventClas|
|00001450| 73 2c 20 6b 41 45 50 72 | 69 6e 74 2c 20 67 43 6f |s, kAEPr|int, gCo|
|00001460| 6d 6d 61 6e 64 48 61 6e | 64 6c 65 72 2c 20 6b 41 |mmandHan|dler, kA|
|00001470| 45 50 72 69 6e 74 2c 20 | 66 61 6c 73 65 29 29 3b |EPrint, |false));|
|00001480| 0d 09 09 09 0d 09 2f 2f | 20 65 76 65 6e 74 73 20 |......//| events |
|00001490| 66 72 6f 6d 20 74 68 65 | 20 63 6f 72 65 20 73 75 |from the| core su|
|000014a0| 69 74 65 0d 09 0d 09 46 | 61 69 6c 45 72 72 28 41 |ite....F|ailErr(A|
|000014b0| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|000014c0| 64 6c 65 72 28 6b 41 45 | 43 6f 72 65 53 75 69 74 |dler(kAE|CoreSuit|
|000014d0| 65 2c 20 6b 41 45 44 6f | 4f 62 6a 65 63 74 73 45 |e, kAEDo|ObjectsE|
|000014e0| 78 69 73 74 2c 20 67 45 | 78 69 73 74 73 48 61 6e |xist, gE|xistsHan|
|000014f0| 64 6c 65 72 2c 20 30 2c | 20 66 61 6c 73 65 29 29 |dler, 0,| false))|
|00001500| 3b 0d 09 46 61 69 6c 45 | 72 72 28 41 45 49 6e 73 |;..FailE|rr(AEIns|
|00001510| 74 61 6c 6c 45 76 65 6e | 74 48 61 6e 64 6c 65 72 |tallEven|tHandler|
|00001520| 28 6b 41 45 43 6f 72 65 | 53 75 69 74 65 2c 20 6b |(kAECore|Suite, k|
|00001530| 41 45 47 65 74 44 61 74 | 61 2c 20 67 47 65 74 44 |AEGetDat|a, gGetD|
|00001540| 61 74 61 48 61 6e 64 6c | 65 72 2c 20 30 2c 20 66 |ataHandl|er, 0, f|
|00001550| 61 6c 73 65 29 29 3b 0d | 09 46 61 69 6c 45 72 72 |alse));.|.FailErr|
|00001560| 28 41 45 49 6e 73 74 61 | 6c 6c 45 76 65 6e 74 48 |(AEInsta|llEventH|
|00001570| 61 6e 64 6c 65 72 28 6b | 41 45 43 6f 72 65 53 75 |andler(k|AECoreSu|
|00001580| 69 74 65 2c 20 6b 41 45 | 53 65 74 44 61 74 61 2c |ite, kAE|SetData,|
|00001590| 20 67 53 65 74 44 61 74 | 61 48 61 6e 64 6c 65 72 | gSetDat|aHandler|
|000015a0| 2c 20 30 2c 20 66 61 6c | 73 65 29 29 3b 0d 09 46 |, 0, fal|se));..F|
|000015b0| 61 69 6c 45 72 72 28 41 | 45 49 6e 73 74 61 6c 6c |ailErr(A|EInstall|
|000015c0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 28 6b 41 45 |EventHan|dler(kAE|
|000015d0| 43 6f 72 65 53 75 69 74 | 65 2c 20 6b 41 45 47 65 |CoreSuit|e, kAEGe|
|000015e0| 74 44 61 74 61 53 69 7a | 65 2c 20 67 47 65 74 44 |tDataSiz|e, gGetD|
|000015f0| 61 74 61 53 69 7a 65 48 | 61 6e 64 6c 65 72 2c 20 |ataSizeH|andler, |
|00001600| 30 2c 20 66 61 6c 73 65 | 29 29 3b 0d 09 46 61 69 |0, false|));..Fai|
|00001610| 6c 45 72 72 28 41 45 49 | 6e 73 74 61 6c 6c 45 76 |lErr(AEI|nstallEv|
|00001620| 65 6e 74 48 61 6e 64 6c | 65 72 28 6b 41 45 43 6f |entHandl|er(kAECo|
|00001630| 72 65 53 75 69 74 65 2c | 20 6b 41 45 43 72 65 61 |reSuite,| kAECrea|
|00001640| 74 65 45 6c 65 6d 65 6e | 74 2c 20 67 4e 65 77 45 |teElemen|t, gNewE|
|00001650| 6c 65 6d 65 6e 74 48 61 | 6e 64 6c 65 72 2c 20 30 |lementHa|ndler, 0|
|00001660| 2c 20 66 61 6c 73 65 29 | 29 3b 0d 09 46 61 69 6c |, false)|);..Fail|
|00001670| 45 72 72 28 41 45 49 6e | 73 74 61 6c 6c 45 76 65 |Err(AEIn|stallEve|
|00001680| 6e 74 48 61 6e 64 6c 65 | 72 28 6b 41 45 43 6f 72 |ntHandle|r(kAECor|
|00001690| 65 53 75 69 74 65 2c 20 | 6b 41 45 43 6f 75 6e 74 |eSuite, |kAECount|
|000016a0| 45 6c 65 6d 65 6e 74 73 | 2c 20 67 4e 75 6d 62 65 |Elements|, gNumbe|
|000016b0| 72 4f 66 45 6c 65 6d 65 | 6e 74 73 48 61 6e 64 6c |rOfEleme|ntsHandl|
|000016c0| 65 72 2c 20 30 2c 20 66 | 61 6c 73 65 29 29 3b 0d |er, 0, f|alse));.|
|000016d0| 0d 09 46 61 69 6c 45 72 | 72 28 41 45 49 6e 73 74 |..FailEr|r(AEInst|
|000016e0| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|000016f0| 6b 41 45 43 6f 72 65 53 | 75 69 74 65 2c 20 6b 41 |kAECoreS|uite, kA|
|00001700| 45 43 6c 6f 6e 65 2c 20 | 67 4d 6f 76 65 48 61 6e |EClone, |gMoveHan|
|00001710| 64 6c 65 72 2c 20 6b 41 | 45 43 6c 6f 6e 65 2c 20 |dler, kA|EClone, |
|00001720| 66 61 6c 73 65 29 29 3b | 0d 09 46 61 69 6c 45 72 |false));|..FailEr|
|00001730| 72 28 41 45 49 6e 73 74 | 61 6c 6c 45 76 65 6e 74 |r(AEInst|allEvent|
|00001740| 48 61 6e 64 6c 65 72 28 | 6b 41 45 43 6f 72 65 53 |Handler(|kAECoreS|
|00001750| 75 69 74 65 2c 20 6b 41 | 45 44 65 6c 65 74 65 2c |uite, kA|EDelete,|
|00001760| 20 67 43 6f 6d 6d 61 6e | 64 48 61 6e 64 6c 65 72 | gComman|dHandler|
|00001770| 2c 20 6b 41 45 44 65 6c | 65 74 65 2c 20 66 61 6c |, kAEDel|ete, fal|
|00001780| 73 65 29 29 3b 0d 09 46 | 61 69 6c 45 72 72 28 41 |se));..F|ailErr(A|
|00001790| 45 49 6e 73 74 61 6c 6c | 45 76 65 6e 74 48 61 6e |EInstall|EventHan|
|000017a0| 64 6c 65 72 28 6b 41 45 | 43 6f 72 65 53 75 69 74 |dler(kAE|CoreSuit|
|000017b0| 65 2c 20 6b 41 45 43 6c | 6f 73 65 2c 20 67 43 6f |e, kAECl|ose, gCo|
|000017c0| 6d 6d 61 6e 64 48 61 6e | 64 6c 65 72 2c 20 6b 41 |mmandHan|dler, kA|
|000017d0| 45 43 6c 6f 73 65 2c 20 | 66 61 6c 73 65 29 29 3b |EClose, |false));|
|000017e0| 0d 09 46 61 69 6c 45 72 | 72 28 41 45 49 6e 73 74 |..FailEr|r(AEInst|
|000017f0| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|00001800| 6b 41 45 43 6f 72 65 53 | 75 69 74 65 2c 20 6b 41 |kAECoreS|uite, kA|
|00001810| 45 4d 6f 76 65 2c 20 67 | 4d 6f 76 65 48 61 6e 64 |EMove, g|MoveHand|
|00001820| 6c 65 72 2c 20 6b 41 45 | 4d 6f 76 65 2c 20 66 61 |ler, kAE|Move, fa|
|00001830| 6c 73 65 29 29 3b 0d 09 | 46 61 69 6c 45 72 72 28 |lse));..|FailErr(|
|00001840| 41 45 49 6e 73 74 61 6c | 6c 45 76 65 6e 74 48 61 |AEInstal|lEventHa|
|00001850| 6e 64 6c 65 72 28 6b 41 | 45 43 6f 72 65 53 75 69 |ndler(kA|ECoreSui|
|00001860| 74 65 2c 20 6b 41 45 53 | 61 76 65 2c 20 67 43 6f |te, kAES|ave, gCo|
|00001870| 6d 6d 61 6e 64 48 61 6e | 64 6c 65 72 2c 20 6b 41 |mmandHan|dler, kA|
|00001880| 45 53 61 76 65 2c 20 66 | 61 6c 73 65 29 29 3b 0d |ESave, f|alse));.|
|00001890| 23 65 6e 64 69 66 0d 09 | 7d 20 2f 2f 20 54 43 6f |#endif..|} // TCo|
|000018a0| 72 65 53 75 69 74 65 3a | 3a 49 6e 73 74 61 6c 6c |reSuite:|:Install|
|000018b0| 41 45 48 61 6e 64 6c 65 | 72 73 20 0d 0d 2f 2f 2d |AEHandle|rs ..//-|
|000018c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001910| 2d 2d 2d 2d 2d 2d 2d 0d | 2f 2f 20 54 43 6f 72 65 |-------.|// TCore|
|00001920| 53 75 69 74 65 3a 3a 44 | 6f 45 78 69 73 74 73 3a |Suite::D|oExists:|
|00001930| 20 0d 2f 2f 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .//----|--------|
|00001940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 70 61 73 |--------|----.pas|
|00001990| 63 61 6c 20 4f 53 45 72 | 72 20 54 43 6f 72 65 53 |cal OSEr|r TCoreS|
|000019a0| 75 69 74 65 3a 3a 44 6f | 45 78 69 73 74 73 28 54 |uite::Do|Exists(T|
|000019b0| 41 45 76 65 6e 74 26 20 | 61 65 2c 20 54 41 45 76 |AEvent& |ae, TAEv|
|000019c0| 65 6e 74 26 20 72 65 70 | 6c 79 2c 20 6c 6f 6e 67 |ent& rep|ly, long|
|000019d0| 20 2f 2a 20 72 65 66 43 | 6f 6e 20 2a 2f 29 0d 09 | /* refC|on */)..|
|000019e0| 7b 0d 09 42 6f 6f 6c 65 | 61 6e 20 64 69 72 65 63 |{..Boole|an direc|
|000019f0| 74 4f 62 6a 65 63 74 45 | 78 69 73 74 73 20 3d 20 |tObjectE|xists = |
|00001a00| 74 72 75 65 3b 0d 09 4f | 53 45 72 72 20 65 72 72 |true;..O|SErr err|
|00001a10| 20 3d 20 6e 6f 45 72 72 | 3b 0d 0d 09 54 44 65 73 | = noErr|;...TDes|
|00001a20| 63 72 69 70 74 6f 72 20 | 6f 62 6a 65 63 74 53 70 |criptor |objectSp|
|00001a30| 65 63 69 66 69 65 72 4c | 69 73 74 3b 09 09 0d 09 |ecifierL|ist;....|
|00001a40| 54 54 6f 6b 65 6e 44 65 | 73 63 72 69 70 74 6f 72 |TTokenDe|scriptor|
|00001a50| 20 64 69 72 65 63 74 4f | 62 6a 65 63 74 54 6f 6b | directO|bjectTok|
|00001a60| 65 6e 3b 0d 09 54 44 65 | 73 63 72 69 70 74 6f 72 |en;..TDe|scriptor|
|00001a70| 20 64 6f 65 73 45 78 69 | 73 74 3b 0d 09 54 44 65 | doesExi|st;..TDe|
|00001a80| 73 63 72 69 70 74 6f 72 | 20 6f 66 66 65 6e 64 69 |scriptor| offendi|
|00001a90| 6e 67 4f 62 6a 65 63 74 | 3b 0d 09 54 54 72 61 6e |ngObject|;..TTran|
|00001aa0| 73 61 63 74 69 6f 6e 2a | 20 74 72 61 6e 73 61 63 |saction*| transac|
|00001ab0| 74 69 6f 6e 20 3d 20 6e | 69 6c 3b 0d 09 4e 4f 52 |tion = n|il;..NOR|
|00001ac0| 45 47 49 53 54 45 52 28 | 74 72 61 6e 73 61 63 74 |EGISTER(|transact|
|00001ad0| 69 6f 6e 29 3b 0d 09 09 | 0d 09 54 52 59 0d 09 09 |ion);...|..TRY...|
|00001ae0| 7b 0d 09 09 74 72 61 6e | 73 61 63 74 69 6f 6e 20 |{...tran|saction |
|00001af0| 3d 20 6e 65 77 20 54 54 | 72 61 6e 73 61 63 74 69 |= new TT|ransacti|
|00001b00| 6f 6e 3b 0d 0d 09 09 2f | 2f 0d 09 09 2f 2f 20 54 |on;..../|/...// T|
|00001b10| 72 79 20 74 6f 20 72 65 | 73 6f 6c 76 65 20 74 68 |ry to re|solve th|
|00001b20| 65 20 64 69 72 65 63 74 | 20 6f 62 6a 65 63 74 3b |e direct| object;|
|00001b30| 20 69 66 20 74 68 65 72 | 65 20 69 73 20 6e 6f 20 | if ther|e is no |
|00001b40| 64 69 72 65 63 74 20 6f | 62 6a 65 63 74 2c 0d 09 |direct o|bject,..|
|00001b50| 09 2f 2f 20 6f 72 20 69 | 66 20 74 68 65 20 64 69 |.// or i|f the di|
|00001b60| 72 65 63 74 20 6f 62 6a | 65 63 74 20 66 61 69 6c |rect obj|ect fail|
|00001b70| 73 20 74 6f 20 72 65 73 | 6f 6c 76 65 20 74 6f 20 |s to res|olve to |
|00001b80| 61 20 74 6f 6b 65 6e 2c | 20 74 68 65 6e 20 27 65 |a token,| then 'e|
|00001b90| 78 69 73 74 73 27 0d 09 | 09 2f 2f 20 77 69 6c 6c |xists'..|.// will|
|00001ba0| 20 72 65 74 75 72 6e 20 | 27 66 61 6c 73 65 27 0d | return |'false'.|
|00001bb0| 09 09 2f 2f 0d 09 09 6f | 62 6a 65 63 74 53 70 65 |..//...o|bjectSpe|
|00001bc0| 63 69 66 69 65 72 4c 69 | 73 74 20 3d 20 61 65 2e |cifierLi|st = ae.|
|00001bd0| 47 65 74 44 69 72 65 63 | 74 4f 62 6a 65 63 74 28 |GetDirec|tObject(|
|00001be0| 29 3b 09 09 0d 09 09 64 | 69 72 65 63 74 4f 62 6a |);.....d|irectObj|
|00001bf0| 65 63 74 54 6f 6b 65 6e | 20 3d 20 6f 62 6a 65 63 |ectToken| = objec|
|00001c00| 74 53 70 65 63 69 66 69 | 65 72 4c 69 73 74 2e 52 |tSpecifi|erList.R|
|00001c10| 65 73 6f 6c 76 65 28 74 | 72 61 6e 73 61 63 74 69 |esolve(t|ransacti|
|00001c20| 6f 6e 2c 20 26 6f 66 66 | 65 6e 64 69 6e 67 4f 62 |on, &off|endingOb|
|00001c30| 6a 65 63 74 29 3b 0d 09 | 09 0d 09 09 2f 2f 0d 09 |ject);..|....//..|
|00001c40| 09 2f 2f 20 43 68 65 63 | 6b 20 74 6f 20 73 65 65 |.// Chec|k to see|
|00001c50| 20 69 66 20 74 68 65 20 | 72 65 73 6f 6c 76 65 64 | if the |resolved|
|00001c60| 20 74 6f 6b 65 6e 20 72 | 65 61 6c 6c 79 20 64 6f | token r|eally do|
|00001c70| 65 73 20 65 78 69 73 74 | 0d 09 09 2f 2f 0d 09 09 |es exist|...//...|
|00001c80| 54 41 62 73 74 72 61 63 | 74 53 63 72 69 70 74 61 |TAbstrac|tScripta|
|00001c90| 62 6c 65 4f 62 6a 65 63 | 74 2a 20 74 6f 6b 65 6e |bleObjec|t* token|
|00001ca0| 20 3d 20 64 69 72 65 63 | 74 4f 62 6a 65 63 74 54 | = direc|tObjectT|
|00001cb0| 6f 6b 65 6e 2e 54 6f 6b | 65 6e 4f 62 6a 65 63 74 |oken.Tok|enObject|
|00001cc0| 28 29 3b 0d 09 09 09 7b | 0d 09 09 09 2f 2f 0d 09 |();....{|....//..|
|00001cd0| 09 09 2f 2f 20 49 66 20 | 74 68 65 20 74 6f 6b 65 |..// If |the toke|
|00001ce0| 6e 20 63 6c 61 69 6d 73 | 20 74 68 61 74 20 69 74 |n claims| that it|
|00001cf0| 20 64 6f 65 73 20 6e 6f | 74 20 65 78 69 73 74 2c | does no|t exist,|
|00001d00| 20 74 68 65 6e 0d 09 09 | 09 2f 2f 20 72 65 74 75 | then...|.// retu|
|00001d10| 72 6e 20 66 61 6c 73 65 | 2e 20 20 45 78 61 6d 70 |rn false|.  Examp|
|00001d20| 6c 65 73 20 77 68 65 72 | 65 20 74 68 69 73 20 69 |les wher|e this i|
|00001d30| 73 20 74 72 75 65 20 69 | 6e 63 6c 75 64 65 73 0d |s true i|ncludes.|
|00001d40| 09 09 09 2f 2f 20 74 68 | 65 20 73 65 6c 65 63 74 |...// th|e select|
|00001d50| 69 6f 6e 2c 20 77 68 69 | 63 68 20 77 69 6c 6c 20 |ion, whi|ch will |
|00001d60| 61 6c 77 61 79 73 20 72 | 65 73 6f 6c 76 65 20 74 |always r|esolve t|
|00001d70| 6f 20 61 20 74 6f 6b 65 | 6e 2c 0d 09 09 09 2f 2f |o a toke|n,....//|
|00001d80| 20 62 75 74 20 77 6f 75 | 6c 64 20 72 61 74 68 65 | but wou|ld rathe|
|00001d90| 72 20 72 65 74 75 72 6e | 20 27 66 61 6c 73 65 27 |r return| 'false'|
|00001da0| 20 69 6e 20 72 65 73 70 | 6f 6e 73 65 20 74 6f 20 | in resp|onse to |
|00001db0| 61 6e 0d 09 09 09 2f 2f | 20 27 45 78 69 73 74 73 |an....//| 'Exists|
|00001dc0| 27 20 72 6f 75 74 69 6e | 65 20 69 66 20 74 68 65 |' routin|e if the|
|00001dd0| 72 65 20 61 72 65 20 6e | 6f 20 69 74 65 6d 73 20 |re are n|o items |
|00001de0| 69 6e 20 74 68 65 20 73 | 65 6c 65 63 74 69 6f 6e |in the s|election|
|00001df0| 2e 0d 09 09 09 2f 2f 0d | 09 09 09 69 66 28 74 6f |.....//.|...if(to|
|00001e00| 6b 65 6e 2d 3e 45 78 69 | 73 74 73 28 74 72 61 6e |ken->Exi|sts(tran|
|00001e10| 73 61 63 74 69 6f 6e 29 | 20 3d 3d 20 66 61 6c 73 |saction)| == fals|
|00001e20| 65 29 0d 09 09 09 09 64 | 69 72 65 63 74 4f 62 6a |e).....d|irectObj|
|00001e30| 65 63 74 45 78 69 73 74 | 73 20 3d 20 66 61 6c 73 |ectExist|s = fals|
|00001e40| 65 3b 0d 09 09 09 7d 0d | 09 09 7d 0d 09 45 58 43 |e;....}.|..}..EXC|
|00001e50| 45 50 54 0d 09 09 7b 0d | 09 09 64 69 72 65 63 74 |EPT...{.|..direct|
|00001e60| 4f 62 6a 65 63 74 45 78 | 69 73 74 73 20 3d 20 66 |ObjectEx|ists = f|
|00001e70| 61 6c 73 65 3b 0d 09 09 | 65 72 72 20 3d 20 28 4f |alse;...|err = (O|
|00001e80| 53 45 72 72 29 20 45 78 | 63 65 70 74 5f 45 72 72 |SErr) Ex|cept_Err|
|00001e90| 6f 72 28 29 3b 0d 09 09 | 69 66 28 65 72 72 20 3d |or();...|if(err =|
|00001ea0| 3d 20 65 72 72 41 45 4e | 6f 53 75 63 68 4f 62 6a |= errAEN|oSuchObj|
|00001eb0| 65 63 74 29 0d 09 09 09 | 65 72 72 20 3d 20 6e 6f |ect)....|err = no|
|00001ec0| 45 72 72 3b 0d 09 09 65 | 6c 73 65 0d 09 09 09 50 |Err;...e|lse....P|
|00001ed0| 72 6f 63 65 73 73 45 72 | 72 6f 72 28 65 72 72 2c |rocessEr|ror(err,|
|00001ee0| 20 6f 66 66 65 6e 64 69 | 6e 67 4f 62 6a 65 63 74 | offendi|ngObject|
|00001ef0| 2c 20 72 65 70 6c 79 29 | 3b 0d 09 09 7d 0d 09 45 |, reply)|;...}..E|
|00001f00| 4e 44 54 52 59 0d 09 09 | 0d 09 64 6f 65 73 45 78 |NDTRY...|..doesEx|
|00001f10| 69 73 74 2e 4d 61 6b 65 | 42 6f 6f 6c 65 61 6e 28 |ist.Make|Boolean(|
|00001f20| 64 69 72 65 63 74 4f 62 | 6a 65 63 74 45 78 69 73 |directOb|jectExis|
|00001f30| 74 73 29 3b 0d 09 72 65 | 70 6c 79 2e 50 75 74 52 |ts);..re|ply.PutR|
|00001f40| 65 73 75 6c 74 28 64 6f | 65 73 45 78 69 73 74 29 |esult(do|esExist)|
|00001f50| 3b 0d 09 0d 09 64 65 6c | 65 74 65 20 74 72 61 6e |;....del|ete tran|
|00001f60| 73 61 63 74 69 6f 6e 3b | 0d 09 64 6f 65 73 45 78 |saction;|..doesEx|
|00001f70| 69 73 74 2e 44 69 73 70 | 6f 73 65 28 29 3b 0d 09 |ist.Disp|ose();..|
|00001f80| 64 69 72 65 63 74 4f 62 | 6a 65 63 74 54 6f 6b 65 |directOb|jectToke|
|00001f90| 6e 2e 44 69 73 70 6f 73 | 65 54 6f 6b 65 6e 28 29 |n.Dispos|eToken()|
|00001fa0| 3b 0d 09 6f 62 6a 65 63 | 74 53 70 65 63 69 66 69 |;..objec|tSpecifi|
|00001fb0| 65 72 4c 69 73 74 2e 44 | 69 73 70 6f 73 65 28 29 |erList.D|ispose()|
|00001fc0| 3b 0d 09 6f 66 66 65 6e | 64 69 6e 67 4f 62 6a 65 |;..offen|dingObje|
|00001fd0| 63 74 2e 44 69 73 70 6f | 73 65 28 29 3b 0d 09 0d |ct.Dispo|se();...|
|00001fe0| 09 72 65 74 75 72 6e 20 | 65 72 72 3b 0d 09 7d 20 |.return |err;..} |
|00001ff0| 2f 2f 20 54 43 6f 72 65 | 53 75 69 74 65 3a 3a 44 |// TCore|Suite::D|
|00002000| 6f 45 78 69 73 74 73 20 | 0d 0d 2f 2f 2d 2d 2d 2d |oExists |..//----|
|00002010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002060| 2d 2d 2d 2d 0d 2f 2f 20 | 54 43 6f 72 65 53 75 69 |----.// |TCoreSui|
|00002070| 74 65 3a 3a 44 6f 47 65 | 74 44 61 74 61 3a 20 0d |te::DoGe|tData: .|
|00002080| 2f 2f 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |//------|--------|
|00002090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 70 61 73 63 61 |--------|--.pasca|
|000020e0| 6c 20 4f 53 45 72 72 20 | 54 43 6f 72 65 53 75 69 |l OSErr |TCoreSui|
|000020f0| 74 65 3a 3a 44 6f 47 65 | 74 44 61 74 61 28 54 41 |te::DoGe|tData(TA|
|00002100| 45 76 65 6e 74 26 20 61 | 65 2c 20 54 41 45 76 65 |Event& a|e, TAEve|
|00002110| 6e 74 26 20 72 65 70 6c | 79 2c 20 6c 6f 6e 67 20 |nt& repl|y, long |
|00002120| 2f 2a 20 72 65 66 43 6f | 6e 20 2a 2f 29 0d 09 7b |/* refCo|n */)..{|
|00002130| 0d 09 4f 53 45 72 72 20 | 65 72 72 20 3d 20 6e 6f |..OSErr |err = no|
|00002140| 45 72 72 3b 0d 0d 09 54 | 44 65 73 63 72 69 70 74 |Err;...T|Descript|
|00002150| 6f 72 20 6f 62 6a 65 63 | 74 53 70 65 63 69 66 69 |or objec|tSpecifi|
|00002160| 65 72 4c 69 73 74 3b 09 | 09 0d 09 54 54 6f 6b 65 |erList;.|...TToke|
|00002170| 6e 44 65 73 63 72 69 70 | 74 6f 72 20 64 69 72 65 |nDescrip|tor dire|
|00002180| 63 74 4f 62 6a 65 63 74 | 54 6f 6b 65 6e 3b 0d 09 |ctObject|Token;..|
|00002190| 54 44 65 73 63 72 69 70 | 74 6f 72 20 72 65 71 75 |TDescrip|tor requ|
|000021a0| 65 73 74 65 64 54 79 70 | 65 3b 0d 09 54 44 65 73 |estedTyp|e;..TDes|
|000021b0| 63 72 69 70 74 6f 72 20 | 72 65 73 75 6c 74 44 65 |criptor |resultDe|
|000021c0| 73 63 72 69 70 74 6f 72 | 3b 0d 09 54 44 65 73 63 |scriptor|;..TDesc|
|000021d0| 72 69 70 74 6f 72 20 6f | 66 66 65 6e 64 69 6e 67 |riptor o|ffending|
|000021e0| 4f 62 6a 65 63 74 3b 0d | 09 54 54 72 61 6e 73 61 |Object;.|.TTransa|
|000021f0| 63 74 69 6f 6e 2a 20 74 | 72 61 6e 73 61 63 74 69 |ction* t|ransacti|
|00002200| 6f 6e 20 3d 20 6e 69 6c | 3b 0d 09 4e 4f 52 45 47 |on = nil|;..NOREG|
|00002210| 49 53 54 45 52 28 74 72 | 61 6e 73 61 63 74 69 6f |ISTER(tr|ansactio|
|00002220| 6e 29 3b 0d 09 09 0d 09 | 54 52 59 0d 09 09 7b 0d |n);.....|TRY...{.|
|00002230| 09 09 74 72 61 6e 73 61 | 63 74 69 6f 6e 20 3d 20 |..transa|ction = |
|00002240| 6e 65 77 20 54 54 72 61 | 6e 73 61 63 74 69 6f 6e |new TTra|nsaction|
|00002250| 3b 0d 09 09 6f 62 6a 65 | 63 74 53 70 65 63 69 66 |;...obje|ctSpecif|
|00002260| 69 65 72 4c 69 73 74 20 | 3d 20 61 65 2e 47 65 74 |ierList |= ae.Get|
|00002270| 44 69 72 65 63 74 4f 62 | 6a 65 63 74 28 29 3b 09 |DirectOb|ject();.|
|00002280| 09 0d 09 09 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |....dire|ctObject|
|00002290| 54 6f 6b 65 6e 20 3d 20 | 6f 62 6a 65 63 74 53 70 |Token = |objectSp|
|000022a0| 65 63 69 66 69 65 72 4c | 69 73 74 2e 52 65 73 6f |ecifierL|ist.Reso|
|000022b0| 6c 76 65 28 74 72 61 6e | 73 61 63 74 69 6f 6e 2c |lve(tran|saction,|
|000022c0| 20 26 6f 66 66 65 6e 64 | 69 6e 67 4f 62 6a 65 63 | &offend|ingObjec|
|000022d0| 74 29 3b 0d 09 09 0d 09 | 09 72 65 71 75 65 73 74 |t);.....|.request|
|000022e0| 65 64 54 79 70 65 20 3d | 20 61 65 2e 47 65 74 4f |edType =| ae.GetO|
|000022f0| 70 74 69 6f 6e 61 6c 50 | 61 72 61 6d 65 74 65 72 |ptionalP|arameter|
|00002300| 28 6b 65 79 41 45 52 65 | 71 75 65 73 74 65 64 54 |(keyAERe|questedT|
|00002310| 79 70 65 2c 74 79 70 65 | 41 45 4c 69 73 74 29 3b |ype,type|AEList);|
|00002320| 0d 09 09 09 09 0d 09 09 | 54 41 62 73 74 72 61 63 |........|TAbstrac|
|00002330| 74 53 63 72 69 70 74 61 | 62 6c 65 4f 62 6a 65 63 |tScripta|bleObjec|
|00002340| 74 2a 20 74 6f 6b 65 6e | 20 3d 20 64 69 72 65 63 |t* token| = direc|
|00002350| 74 4f 62 6a 65 63 74 54 | 6f 6b 65 6e 2e 54 6f 6b |tObjectT|oken.Tok|
|00002360| 65 6e 4f 62 6a 65 63 74 | 28 29 3b 0d 09 09 72 65 |enObject|();...re|
|00002370| 73 75 6c 74 44 65 73 63 | 72 69 70 74 6f 72 20 3d |sultDesc|riptor =|
|00002380| 20 74 6f 6b 65 6e 2d 3e | 47 65 74 44 61 74 61 47 | token->|GetDataG|
|00002390| 69 76 65 6e 4c 69 73 74 | 4f 66 54 79 70 65 73 28 |ivenList|OfTypes(|
|000023a0| 74 72 61 6e 73 61 63 74 | 69 6f 6e 2c 20 70 43 6f |transact|ion, pCo|
|000023b0| 6e 74 65 6e 74 73 2c 20 | 72 65 71 75 65 73 74 65 |ntents, |requeste|
|000023c0| 64 54 79 70 65 29 3b 0d | 09 09 72 65 70 6c 79 2e |dType);.|..reply.|
|000023d0| 50 75 74 52 65 73 75 6c | 74 28 72 65 73 75 6c 74 |PutResul|t(result|
|000023e0| 44 65 73 63 72 69 70 74 | 6f 72 29 3b 0d 09 09 7d |Descript|or);...}|
|000023f0| 0d 09 45 58 43 45 50 54 | 0d 09 09 7b 0d 09 09 65 |..EXCEPT|...{...e|
|00002400| 72 72 20 3d 20 28 4f 53 | 45 72 72 29 20 45 78 63 |rr = (OS|Err) Exc|
|00002410| 65 70 74 5f 45 72 72 6f | 72 28 29 3b 0d 09 09 50 |ept_Erro|r();...P|
|00002420| 72 6f 63 65 73 73 45 72 | 72 6f 72 28 65 72 72 2c |rocessEr|ror(err,|
|00002430| 20 6f 66 66 65 6e 64 69 | 6e 67 4f 62 6a 65 63 74 | offendi|ngObject|
|00002440| 2c 20 72 65 70 6c 79 29 | 3b 0d 09 09 7d 0d 09 45 |, reply)|;...}..E|
|00002450| 4e 44 54 52 59 0d 0d 09 | 64 65 6c 65 74 65 20 74 |NDTRY...|delete t|
|00002460| 72 61 6e 73 61 63 74 69 | 6f 6e 3b 0d 09 72 65 71 |ransacti|on;..req|
|00002470| 75 65 73 74 65 64 54 79 | 70 65 2e 44 69 73 70 6f |uestedTy|pe.Dispo|
|00002480| 73 65 28 29 3b 0d 09 72 | 65 73 75 6c 74 44 65 73 |se();..r|esultDes|
|00002490| 63 72 69 70 74 6f 72 2e | 44 69 73 70 6f 73 65 28 |criptor.|Dispose(|
|000024a0| 29 3b 0d 09 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |);..dire|ctObject|
|000024b0| 54 6f 6b 65 6e 2e 44 69 | 73 70 6f 73 65 54 6f 6b |Token.Di|sposeTok|
|000024c0| 65 6e 28 29 3b 0d 09 6f | 62 6a 65 63 74 53 70 65 |en();..o|bjectSpe|
|000024d0| 63 69 66 69 65 72 4c 69 | 73 74 2e 44 69 73 70 6f |cifierLi|st.Dispo|
|000024e0| 73 65 28 29 3b 0d 09 6f | 66 66 65 6e 64 69 6e 67 |se();..o|ffending|
|000024f0| 4f 62 6a 65 63 74 2e 44 | 69 73 70 6f 73 65 28 29 |Object.D|ispose()|
|00002500| 3b 0d 09 0d 09 72 65 74 | 75 72 6e 20 65 72 72 3b |;....ret|urn err;|
|00002510| 0d 09 7d 20 2f 2f 20 54 | 43 6f 72 65 53 75 69 74 |..} // T|CoreSuit|
|00002520| 65 3a 3a 44 6f 47 65 74 | 44 61 74 61 20 0d 0d 2f |e::DoGet|Data ../|
|00002530| 2f 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/-------|--------|
|00002540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2f 2f 20 54 43 6f |--------|-.// TCo|
|00002590| 72 65 53 75 69 74 65 3a | 3a 44 6f 53 65 74 44 61 |reSuite:|:DoSetDa|
|000025a0| 74 61 3a 20 0d 2f 2f 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ta: .//-|--------|
|000025b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00002600| 70 61 73 63 61 6c 20 4f | 53 45 72 72 20 54 43 6f |pascal O|SErr TCo|
|00002610| 72 65 53 75 69 74 65 3a | 3a 44 6f 53 65 74 44 61 |reSuite:|:DoSetDa|
|00002620| 74 61 28 54 41 45 76 65 | 6e 74 26 20 61 65 2c 20 |ta(TAEve|nt& ae, |
|00002630| 54 41 45 76 65 6e 74 26 | 20 72 65 70 6c 79 2c 20 |TAEvent&| reply, |
|00002640| 6c 6f 6e 67 20 2f 2a 20 | 72 65 66 43 6f 6e 20 2a |long /* |refCon *|
|00002650| 2f 29 0d 09 7b 0d 09 4f | 53 45 72 72 20 65 72 72 |/)..{..O|SErr err|
|00002660| 20 3d 20 6e 6f 45 72 72 | 3b 0d 09 0d 09 54 44 65 | = noErr|;....TDe|
|00002670| 73 63 72 69 70 74 6f 72 | 20 6f 62 6a 65 63 74 53 |scriptor| objectS|
|00002680| 70 65 63 69 66 69 65 72 | 4c 69 73 74 3b 0d 09 54 |pecifier|List;..T|
|00002690| 54 6f 6b 65 6e 44 65 73 | 63 72 69 70 74 6f 72 20 |TokenDes|criptor |
|000026a0| 64 69 72 65 63 74 4f 62 | 6a 65 63 74 54 6f 6b 65 |directOb|jectToke|
|000026b0| 6e 3b 0d 09 54 44 65 73 | 63 72 69 70 74 6f 72 20 |n;..TDes|criptor |
|000026c0| 6b 65 79 44 61 74 61 3b | 0d 09 54 44 65 73 63 72 |keyData;|..TDescr|
|000026d0| 69 70 74 6f 72 20 6f 66 | 66 65 6e 64 69 6e 67 4f |iptor of|fendingO|
|000026e0| 62 6a 65 63 74 3b 0d 09 | 0d 09 54 54 72 61 6e 73 |bject;..|..TTrans|
|000026f0| 61 63 74 69 6f 6e 2a 20 | 74 72 61 6e 73 61 63 74 |action* |transact|
|00002700| 69 6f 6e 20 3d 20 6e 69 | 6c 3b 0d 09 4e 4f 52 45 |ion = ni|l;..NORE|
|00002710| 47 49 53 54 45 52 28 74 | 72 61 6e 73 61 63 74 69 |GISTER(t|ransacti|
|00002720| 6f 6e 29 3b 0d 09 09 0d | 09 54 52 59 0d 09 09 7b |on);....|.TRY...{|
|00002730| 0d 09 09 74 72 61 6e 73 | 61 63 74 69 6f 6e 20 3d |...trans|action =|
|00002740| 20 6e 65 77 20 54 54 72 | 61 6e 73 61 63 74 69 6f | new TTr|ansactio|
|00002750| 6e 3b 0d 0d 09 09 6f 62 | 6a 65 63 74 53 70 65 63 |n;....ob|jectSpec|
|00002760| 69 66 69 65 72 4c 69 73 | 74 20 3d 20 61 65 2e 47 |ifierLis|t = ae.G|
|00002770| 65 74 44 69 72 65 63 74 | 4f 62 6a 65 63 74 28 29 |etDirect|Object()|
|00002780| 3b 0d 09 09 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |;...dire|ctObject|
|00002790| 54 6f 6b 65 6e 20 3d 20 | 6f 62 6a 65 63 74 53 70 |Token = |objectSp|
|000027a0| 65 63 69 66 69 65 72 4c | 69 73 74 2e 52 65 73 6f |ecifierL|ist.Reso|
|000027b0| 6c 76 65 28 74 72 61 6e | 73 61 63 74 69 6f 6e 2c |lve(tran|saction,|
|000027c0| 20 26 6f 66 66 65 6e 64 | 69 6e 67 4f 62 6a 65 63 | &offend|ingObjec|
|000027d0| 74 29 3b 0d 09 09 09 09 | 0d 09 09 6b 65 79 44 61 |t);.....|...keyDa|
|000027e0| 74 61 20 3d 20 61 65 2e | 47 65 74 44 65 73 63 72 |ta = ae.|GetDescr|
|000027f0| 69 70 74 6f 72 28 6b 65 | 79 41 45 44 61 74 61 29 |iptor(ke|yAEData)|
|00002800| 3b 0d 09 09 09 09 0d 09 | 09 54 41 62 73 74 72 61 |;.......|.TAbstra|
|00002810| 63 74 53 63 72 69 70 74 | 61 62 6c 65 4f 62 6a 65 |ctScript|ableObje|
|00002820| 63 74 2a 20 74 6f 6b 65 | 6e 20 3d 20 64 69 72 65 |ct* toke|n = dire|
|00002830| 63 74 4f 62 6a 65 63 74 | 54 6f 6b 65 6e 2e 54 6f |ctObject|Token.To|
|00002840| 6b 65 6e 4f 62 6a 65 63 | 74 28 29 3b 0d 09 09 09 |kenObjec|t();....|
|00002850| 7b 0d 09 09 09 54 44 65 | 73 63 72 69 70 74 6f 72 |{....TDe|scriptor|
|00002860| 20 72 65 73 6f 6c 76 65 | 64 44 61 74 61 3b 0d 09 | resolve|dData;..|
|00002870| 09 09 0d 09 09 09 2f 2f | 0d 09 09 09 2f 2f 20 49 |......//|....// I|
|00002880| 74 20 69 73 20 6c 65 67 | 61 6c 20 74 6f 20 70 72 |t is leg|al to pr|
|00002890| 6f 76 69 64 65 20 61 6e | 20 6f 62 6a 65 63 74 20 |ovide an| object |
|000028a0| 73 70 65 63 69 66 69 65 | 72 20 74 6f 20 73 6f 6d |specifie|r to som|
|000028b0| 65 0d 09 09 09 2f 2f 20 | 6f 62 6a 65 63 74 20 61 |e....// |object a|
|000028c0| 73 20 74 68 65 20 6b 65 | 79 20 64 61 74 61 20 6f |s the ke|y data o|
|000028d0| 66 20 61 20 53 65 74 44 | 61 74 61 20 63 6f 6d 6d |f a SetD|ata comm|
|000028e0| 61 6e 64 2e 0d 09 09 09 | 2f 2f 20 52 65 73 6f 6c |and.....|// Resol|
|000028f0| 76 65 4b 65 79 44 61 74 | 61 20 61 74 74 65 6d 70 |veKeyDat|a attemp|
|00002900| 74 73 20 74 6f 20 72 65 | 73 6f 6c 76 65 20 74 68 |ts to re|solve th|
|00002910| 65 20 6f 62 6a 65 63 74 | 20 73 70 65 63 69 66 69 |e object| specifi|
|00002920| 65 72 0d 09 09 09 2f 2f | 20 69 6e 20 74 68 65 20 |er....//| in the |
|00002930| 6b 65 79 20 64 61 74 61 | 2c 20 61 6e 64 20 67 65 |key data|, and ge|
|00002940| 74 20 74 68 65 20 62 65 | 73 74 20 64 61 74 61 20 |t the be|st data |
|00002950| 74 79 70 65 20 66 72 6f | 6d 20 69 74 0d 09 09 09 |type fro|m it....|
|00002960| 2f 2f 0d 09 09 09 72 65 | 73 6f 6c 76 65 64 44 61 |//....re|solvedDa|
|00002970| 74 61 20 3d 20 74 6f 6b | 65 6e 2d 3e 52 65 73 6f |ta = tok|en->Reso|
|00002980| 6c 76 65 4b 65 79 44 61 | 74 61 28 74 72 61 6e 73 |lveKeyDa|ta(trans|
|00002990| 61 63 74 69 6f 6e 2c 20 | 6b 65 79 44 61 74 61 29 |action, |keyData)|
|000029a0| 3b 0d 09 09 09 0d 09 09 | 09 2f 2f 0d 09 09 09 2f |;.......|.//..../|
|000029b0| 2f 20 4f 66 74 65 6e 2c | 20 52 65 73 6f 6c 76 65 |/ Often,| Resolve|
|000029c0| 4b 65 79 44 61 74 61 20 | 64 6f 65 73 20 6e 6f 74 |KeyData |does not|
|000029d0| 20 6e 65 65 64 20 74 6f | 20 64 6f 20 61 6e 79 74 | need to| do anyt|
|000029e0| 68 69 6e 67 2e 0d 09 09 | 09 2f 2f 20 54 6f 20 61 |hing....|.// To a|
|000029f0| 76 6f 69 64 20 72 65 71 | 75 69 72 69 6e 67 20 69 |void req|uiring i|
|00002a00| 74 20 74 6f 20 63 6f 70 | 79 20 74 68 65 20 6b 65 |t to cop|y the ke|
|00002a10| 79 20 64 61 74 61 2c 20 | 6f 75 72 0d 09 09 09 2f |y data, |our..../|
|00002a20| 2f 20 63 6f 6e 76 65 6e | 74 69 6f 6e 20 69 73 20 |/ conven|tion is |
|00002a30| 74 68 61 74 20 69 66 20 | 52 65 73 6f 6c 76 65 4b |that if |ResolveK|
|00002a40| 65 79 44 61 74 61 20 72 | 65 74 75 72 6e 73 20 74 |eyData r|eturns t|
|00002a50| 79 70 65 4e 75 6c 6c 2c | 0d 09 09 09 2f 2f 20 74 |ypeNull,|....// t|
|00002a60| 68 65 6e 20 77 65 20 75 | 73 65 20 74 68 65 20 6f |hen we u|se the o|
|00002a70| 72 69 67 69 6e 61 6c 20 | 6b 65 79 44 61 74 61 2e |riginal |keyData.|
|00002a80| 20 20 4f 74 68 65 72 77 | 69 73 65 2c 20 77 65 0d |  Otherw|ise, we.|
|00002a90| 09 09 09 2f 2f 20 75 73 | 65 20 74 68 65 20 72 65 |...// us|e the re|
|00002aa0| 73 75 6c 74 20 6f 66 20 | 52 65 73 6f 6c 76 65 4b |sult of |ResolveK|
|00002ab0| 65 79 44 61 74 61 2e 0d | 09 09 09 2f 2f 0d 09 09 |eyData..|...//...|
|00002ac0| 09 69 66 28 72 65 73 6f | 6c 76 65 64 44 61 74 61 |.if(reso|lvedData|
|00002ad0| 2e 49 73 4e 75 6c 6c 44 | 65 73 63 72 69 70 74 6f |.IsNullD|escripto|
|00002ae0| 72 28 29 29 0d 09 09 09 | 09 74 6f 6b 65 6e 2d 3e |r())....|.token->|
|00002af0| 53 65 74 44 61 74 61 28 | 74 72 61 6e 73 61 63 74 |SetData(|transact|
|00002b00| 69 6f 6e 2c 20 6b 65 79 | 44 61 74 61 29 3b 0d 09 |ion, key|Data);..|
|00002b10| 09 09 65 6c 73 65 0d 09 | 09 09 09 7b 0d 09 09 09 |..else..|...{....|
|00002b20| 09 2f 2f 0d 09 09 09 09 | 2f 2f 20 49 6e 74 65 6e |.//.....|// Inten|
|00002b30| 73 65 20 76 6f 6f 64 6f | 6f 20 6d 61 67 69 63 3a |se voodo|o magic:|
|00002b40| 20 20 49 66 20 77 65 20 | 63 6f 6e 76 65 72 74 65 |  If we |converte|
|00002b50| 64 20 61 6e 20 6f 62 6a | 65 63 74 20 73 70 65 63 |d an obj|ect spec|
|00002b60| 69 66 69 65 72 0d 09 09 | 09 09 2f 2f 20 69 6e 74 |ifier...|..// int|
|00002b70| 6f 20 61 6e 20 65 6e 75 | 6d 65 72 61 74 69 6f 6e |o an enu|meration|
|00002b80| 20 62 75 74 20 73 65 74 | 20 64 61 74 61 20 64 69 | but set| data di|
|00002b90| 64 20 6e 6f 74 20 77 6f | 72 6b 2c 20 74 68 65 6e |d not wo|rk, then|
|00002ba0| 20 77 65 27 6c 6c 0d 09 | 09 09 09 2f 2f 20 74 72 | we'll..|...// tr|
|00002bb0| 79 20 61 20 6c 69 74 74 | 6c 65 20 62 69 74 20 68 |y a litt|le bit h|
|00002bc0| 61 72 64 65 72 20 74 6f | 20 6d 61 6b 65 20 69 74 |arder to| make it|
|00002bd0| 20 77 6f 72 6b 20 72 69 | 67 68 74 20 74 68 65 20 | work ri|ght the |
|00002be0| 73 65 63 6f 6e 64 20 74 | 69 6d 65 2e 0d 09 09 09 |second t|ime.....|
|00002bf0| 09 2f 2f 20 57 65 20 61 | 73 73 75 6d 65 20 74 68 |.// We a|ssume th|
|00002c00| 61 74 20 74 68 65 20 74 | 72 61 6e 73 6c 61 74 69 |at the t|ranslati|
|00002c10| 6f 6e 20 66 72 6f 6d 20 | 6f 62 6a 65 63 74 20 73 |on from |object s|
|00002c20| 70 65 63 69 66 69 65 72 | 20 74 6f 20 65 6e 75 6d |pecifier| to enum|
|00002c30| 65 72 61 74 69 6f 6e 0d | 09 09 09 09 2f 2f 20 77 |eration.|....// w|
|00002c40| 61 73 20 69 6e 20 65 72 | 72 6f 72 20 28 65 6c 73 |as in er|ror (els|
|00002c50| 65 20 73 65 74 20 64 61 | 74 61 20 77 6f 75 6c 64 |e set da|ta would|
|00002c60| 20 68 61 76 65 20 77 6f | 72 6b 65 64 29 3b 20 65 | have wo|rked); e|
|00002c70| 72 67 6f 2c 20 77 65 20 | 73 68 6f 75 6c 64 0d 09 |rgo, we |should..|
|00002c80| 09 09 09 2f 2f 20 74 72 | 79 20 74 6f 20 72 65 73 |...// tr|y to res|
|00002c90| 6f 6c 76 65 20 74 68 65 | 20 6f 62 6a 65 63 74 20 |olve the| object |
|00002ca0| 73 70 65 63 69 66 69 65 | 72 2c 20 63 61 6c 6c 20 |specifie|r, call |
|00002cb0| 67 65 74 20 64 61 74 61 | 20 6f 6e 20 74 68 65 0d |get data| on the.|
|00002cc0| 09 09 09 09 2f 2f 20 72 | 65 73 75 6c 74 69 6e 67 |....// r|esulting|
|00002cd0| 20 74 6f 6b 65 6e 2c 20 | 61 6e 64 20 70 61 73 73 | token, |and pass|
|00002ce0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 74 6f 20 73 | the res|ult to s|
|00002cf0| 65 74 20 64 61 74 61 2e | 0d 09 09 09 09 2f 2f 0d |et data.|.....//.|
|00002d00| 09 09 09 09 2f 2f 20 4f | 6e 6c 79 20 64 6f 20 74 |....// O|nly do t|
|00002d10| 68 69 73 20 69 66 20 74 | 68 65 20 62 65 73 74 20 |his if t|he best |
|00002d20| 74 79 70 65 20 6f 66 20 | 74 68 65 20 74 6f 6b 65 |type of |the toke|
|00002d30| 6e 20 69 73 20 74 79 70 | 65 45 6e 75 6d 65 72 61 |n is typ|eEnumera|
|00002d40| 74 69 6f 6e 2c 0d 09 09 | 09 09 2f 2f 20 62 65 63 |tion,...|..// bec|
|00002d50| 61 75 73 65 20 74 68 61 | 74 20 69 73 20 74 68 65 |ause tha|t is the|
|00002d60| 20 6f 6e 6c 79 20 69 6e | 73 74 61 6e 63 65 20 69 | only in|stance i|
|00002d70| 6e 20 77 68 69 63 68 20 | 61 6e 20 6f 62 6a 65 63 |n which |an objec|
|00002d80| 74 20 73 70 65 63 69 66 | 69 65 72 0d 09 09 09 09 |t specif|ier.....|
|00002d90| 2f 2f 20 73 68 6f 75 6c | 64 20 62 65 20 74 72 61 |// shoul|d be tra|
|00002da0| 6e 73 6c 61 74 65 64 20 | 69 6e 74 6f 20 61 6e 20 |nslated |into an |
|00002db0| 65 6e 75 6d 65 72 61 74 | 69 6f 6e 2e 0d 09 09 09 |enumerat|ion.....|
|00002dc0| 09 2f 2f 0d 09 09 09 09 | 2f 2f 20 53 65 65 20 74 |.//.....|// See t|
|00002dd0| 68 65 20 63 6f 6d 6d 65 | 6e 74 73 20 69 6e 20 54 |he comme|nts in T|
|00002de0| 41 62 73 74 72 61 63 74 | 53 63 72 69 70 74 61 62 |Abstract|Scriptab|
|00002df0| 6c 65 4f 62 6a 65 63 74 | 3a 3a 52 65 73 6f 6c 76 |leObject|::Resolv|
|00002e00| 65 4b 65 79 44 61 74 61 | 0d 09 09 09 09 2f 2f 20 |eKeyData|.....// |
|00002e10| 66 6f 72 20 72 65 6c 61 | 74 65 64 20 72 65 61 64 |for rela|ted read|
|00002e20| 69 6e 67 2e 0d 09 09 09 | 09 2f 2f 0d 09 09 09 09 |ing.....|.//.....|
|00002e30| 42 6f 6f 6c 65 61 6e 20 | 72 65 63 6f 76 65 72 41 |Boolean |recoverA|
|00002e40| 6e 64 54 72 79 41 67 61 | 69 6e 20 3d 20 28 6b 65 |ndTryAga|in = (ke|
|00002e50| 79 44 61 74 61 2e 44 65 | 73 63 72 69 70 74 6f 72 |yData.De|scriptor|
|00002e60| 54 79 70 65 28 29 20 3d | 3d 20 74 79 70 65 4f 62 |Type() =|= typeOb|
|00002e70| 6a 65 63 74 53 70 65 63 | 69 66 69 65 72 29 20 26 |jectSpec|ifier) &|
|00002e80| 26 20 28 72 65 73 6f 6c | 76 65 64 44 61 74 61 2e |& (resol|vedData.|
|00002e90| 44 65 73 63 72 69 70 74 | 6f 72 54 79 70 65 28 29 |Descript|orType()|
|00002ea0| 20 3d 3d 20 74 79 70 65 | 45 6e 75 6d 65 72 61 74 | == type|Enumerat|
|00002eb0| 69 6f 6e 29 20 26 26 20 | 28 74 6f 6b 65 6e 2d 3e |ion) && |(token->|
|00002ec0| 42 65 73 74 54 79 70 65 | 28 74 72 61 6e 73 61 63 |BestType|(transac|
|00002ed0| 74 69 6f 6e 2c 20 70 43 | 6f 6e 74 65 6e 74 73 29 |tion, pC|ontents)|
|00002ee0| 20 3d 3d 20 74 79 70 65 | 45 6e 75 6d 65 72 61 74 | == type|Enumerat|
|00002ef0| 69 6f 6e 29 3b 0d 09 09 | 09 09 54 52 59 0d 09 09 |ion);...|..TRY...|
|00002f00| 09 09 09 7b 0d 09 09 09 | 09 09 74 6f 6b 65 6e 2d |...{....|..token-|
|00002f10| 3e 53 65 74 44 61 74 61 | 28 74 72 61 6e 73 61 63 |>SetData|(transac|
|00002f20| 74 69 6f 6e 2c 20 72 65 | 73 6f 6c 76 65 64 44 61 |tion, re|solvedDa|
|00002f30| 74 61 29 3b 0d 09 09 09 | 09 09 72 65 63 6f 76 65 |ta);....|..recove|
|00002f40| 72 41 6e 64 54 72 79 41 | 67 61 69 6e 20 3d 20 66 |rAndTryA|gain = f|
|00002f50| 61 6c 73 65 3b 0d 09 09 | 09 09 09 7d 0d 09 09 09 |alse;...|...}....|
|00002f60| 09 45 4e 44 54 52 59 0d | 09 09 09 09 0d 09 09 09 |.ENDTRY.|........|
|00002f70| 09 69 66 28 72 65 63 6f | 76 65 72 41 6e 64 54 72 |.if(reco|verAndTr|
|00002f80| 79 41 67 61 69 6e 29 0d | 09 09 09 09 09 7b 0d 09 |yAgain).|.....{..|
|00002f90| 09 09 09 09 72 65 73 6f | 6c 76 65 64 44 61 74 61 |....reso|lvedData|
|00002fa0| 2e 44 69 73 70 6f 73 65 | 28 29 3b 0d 09 09 09 09 |.Dispose|();.....|
|00002fb0| 09 72 65 73 6f 6c 76 65 | 64 44 61 74 61 20 3d 20 |.resolve|dData = |
|00002fc0| 74 6f 6b 65 6e 2d 3e 52 | 65 73 6f 6c 76 65 53 70 |token->R|esolveSp|
|00002fd0| 65 63 69 66 69 65 72 41 | 6e 64 47 65 74 44 61 74 |ecifierA|ndGetDat|
|00002fe0| 61 28 74 72 61 6e 73 61 | 63 74 69 6f 6e 2c 20 6b |a(transa|ction, k|
|00002ff0| 65 79 44 61 74 61 29 3b | 0d 09 09 09 09 09 74 6f |eyData);|......to|
|00003000| 6b 65 6e 2d 3e 53 65 74 | 44 61 74 61 28 74 72 61 |ken->Set|Data(tra|
|00003010| 6e 73 61 63 74 69 6f 6e | 2c 20 72 65 73 6f 6c 76 |nsaction|, resolv|
|00003020| 65 64 44 61 74 61 29 3b | 09 09 09 09 09 0d 09 09 |edData);|........|
|00003030| 09 09 09 7d 0d 09 09 09 | 09 7d 0d 09 09 09 0d 09 |...}....|.}......|
|00003040| 09 09 72 65 73 6f 6c 76 | 65 64 44 61 74 61 2e 44 |..resolv|edData.D|
|00003050| 69 73 70 6f 73 65 28 29 | 3b 0d 09 09 09 7d 0d 09 |ispose()|;....}..|
|00003060| 09 09 0d 09 09 09 74 72 | 61 6e 73 61 63 74 69 6f |......tr|ansactio|
|00003070| 6e 2d 3e 43 6f 6d 6d 69 | 74 43 68 61 6e 67 65 73 |n->Commi|tChanges|
|00003080| 28 29 3b 0d 09 09 7d 0d | 09 45 58 43 45 50 54 0d |();...}.|.EXCEPT.|
|00003090| 09 09 7b 0d 09 09 65 72 | 72 20 3d 20 28 4f 53 45 |..{...er|r = (OSE|
|000030a0| 72 72 29 20 45 78 63 65 | 70 74 5f 45 72 72 6f 72 |rr) Exce|pt_Error|
|000030b0| 28 29 3b 0d 09 09 50 72 | 6f 63 65 73 73 45 72 72 |();...Pr|ocessErr|
|000030c0| 6f 72 28 65 72 72 2c 20 | 6f 66 66 65 6e 64 69 6e |or(err, |offendin|
|000030d0| 67 4f 62 6a 65 63 74 2c | 20 72 65 70 6c 79 29 3b |gObject,| reply);|
|000030e0| 0d 09 09 7d 0d 09 45 4e | 44 54 52 59 0d 09 0d 09 |...}..EN|DTRY....|
|000030f0| 64 65 6c 65 74 65 20 74 | 72 61 6e 73 61 63 74 69 |delete t|ransacti|
|00003100| 6f 6e 3b 0d 09 6b 65 79 | 44 61 74 61 2e 44 69 73 |on;..key|Data.Dis|
|00003110| 70 6f 73 65 28 29 3b 0d | 09 64 69 72 65 63 74 4f |pose();.|.directO|
|00003120| 62 6a 65 63 74 54 6f 6b | 65 6e 2e 44 69 73 70 6f |bjectTok|en.Dispo|
|00003130| 73 65 54 6f 6b 65 6e 28 | 29 3b 0d 09 6f 62 6a 65 |seToken(|);..obje|
|00003140| 63 74 53 70 65 63 69 66 | 69 65 72 4c 69 73 74 2e |ctSpecif|ierList.|
|00003150| 44 69 73 70 6f 73 65 28 | 29 3b 0d 09 6f 66 66 65 |Dispose(|);..offe|
|00003160| 6e 64 69 6e 67 4f 62 6a | 65 63 74 2e 44 69 73 70 |ndingObj|ect.Disp|
|00003170| 6f 73 65 28 29 3b 0d 09 | 0d 09 72 65 74 75 72 6e |ose();..|..return|
|00003180| 20 65 72 72 3b 0d 09 7d | 20 2f 2f 20 54 43 6f 72 | err;..}| // TCor|
|00003190| 65 53 75 69 74 65 3a 3a | 44 6f 53 65 74 44 61 74 |eSuite::|DoSetDat|
|000031a0| 61 20 0d 0d 2f 2f 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |a ..//--|--------|
|000031b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2f |--------|------./|
|00003200| 2f 20 54 43 6f 72 65 53 | 75 69 74 65 3a 3a 44 6f |/ TCoreS|uite::Do|
|00003210| 47 65 74 44 61 74 61 53 | 69 7a 65 3a 20 0d 2f 2f |GetDataS|ize: .//|
|00003220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 70 61 73 63 61 6c 20 |--------|.pascal |
|00003280| 4f 53 45 72 72 20 54 43 | 6f 72 65 53 75 69 74 65 |OSErr TC|oreSuite|
|00003290| 3a 3a 44 6f 47 65 74 44 | 61 74 61 53 69 7a 65 28 |::DoGetD|ataSize(|
|000032a0| 54 41 45 76 65 6e 74 26 | 20 61 65 2c 20 54 41 45 |TAEvent&| ae, TAE|
|000032b0| 76 65 6e 74 26 20 72 65 | 70 6c 79 2c 20 6c 6f 6e |vent& re|ply, lon|
|000032c0| 67 20 2f 2a 20 72 65 66 | 43 6f 6e 20 2a 2f 29 0d |g /* ref|Con */).|
|000032d0| 09 7b 0d 09 4f 53 45 72 | 72 20 65 72 72 20 3d 20 |.{..OSEr|r err = |
|000032e0| 6e 6f 45 72 72 3b 0d 0d | 09 54 44 65 73 63 72 69 |noErr;..|.TDescri|
|000032f0| 70 74 6f 72 20 6f 62 6a | 65 63 74 53 70 65 63 69 |ptor obj|ectSpeci|
|00003300| 66 69 65 72 4c 69 73 74 | 3b 09 09 0d 09 54 54 6f |fierList|;....TTo|
|00003310| 6b 65 6e 44 65 73 63 72 | 69 70 74 6f 72 20 64 69 |kenDescr|iptor di|
|00003320| 72 65 63 74 4f 62 6a 65 | 63 74 54 6f 6b 65 6e 3b |rectObje|ctToken;|
|00003330| 0d 09 54 44 65 73 63 72 | 69 70 74 6f 72 20 72 65 |..TDescr|iptor re|
|00003340| 71 75 65 73 74 65 64 54 | 79 70 65 3b 0d 09 54 44 |questedT|ype;..TD|
|00003350| 65 73 63 72 69 70 74 6f | 72 20 72 65 73 75 6c 74 |escripto|r result|
|00003360| 4c 69 73 74 3b 0d 09 54 | 44 65 73 63 72 69 70 74 |List;..T|Descript|
|00003370| 6f 72 20 6f 66 66 65 6e | 64 69 6e 67 4f 62 6a 65 |or offen|dingObje|
|00003380| 63 74 3b 0d 09 6c 6f 6e | 67 20 72 65 73 75 6c 74 |ct;..lon|g result|
|00003390| 49 6e 74 65 67 65 72 3b | 0d 09 54 54 72 61 6e 73 |Integer;|..TTrans|
|000033a0| 61 63 74 69 6f 6e 2a 20 | 74 72 61 6e 73 61 63 74 |action* |transact|
|000033b0| 69 6f 6e 20 3d 20 6e 69 | 6c 3b 0d 09 4e 4f 52 45 |ion = ni|l;..NORE|
|000033c0| 47 49 53 54 45 52 28 74 | 72 61 6e 73 61 63 74 69 |GISTER(t|ransacti|
|000033d0| 6f 6e 29 3b 0d 09 0d 09 | 54 52 59 0d 09 09 7b 0d |on);....|TRY...{.|
|000033e0| 09 09 74 72 61 6e 73 61 | 63 74 69 6f 6e 20 3d 20 |..transa|ction = |
|000033f0| 6e 65 77 20 54 54 72 61 | 6e 73 61 63 74 69 6f 6e |new TTra|nsaction|
|00003400| 3b 0d 09 09 6f 62 6a 65 | 63 74 53 70 65 63 69 66 |;...obje|ctSpecif|
|00003410| 69 65 72 4c 69 73 74 20 | 3d 20 61 65 2e 47 65 74 |ierList |= ae.Get|
|00003420| 44 69 72 65 63 74 4f 62 | 6a 65 63 74 28 29 3b 09 |DirectOb|ject();.|
|00003430| 09 0d 09 09 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |....dire|ctObject|
|00003440| 54 6f 6b 65 6e 20 3d 20 | 6f 62 6a 65 63 74 53 70 |Token = |objectSp|
|00003450| 65 63 69 66 69 65 72 4c | 69 73 74 2e 52 65 73 6f |ecifierL|ist.Reso|
|00003460| 6c 76 65 28 74 72 61 6e | 73 61 63 74 69 6f 6e 2c |lve(tran|saction,|
|00003470| 20 26 6f 66 66 65 6e 64 | 69 6e 67 4f 62 6a 65 63 | &offend|ingObjec|
|00003480| 74 29 3b 0d 09 09 09 09 | 09 09 0d 09 09 72 65 71 |t);.....|.....req|
|00003490| 75 65 73 74 65 64 54 79 | 70 65 20 3d 20 61 65 2e |uestedTy|pe = ae.|
|000034a0| 47 65 74 4f 70 74 69 6f | 6e 61 6c 50 61 72 61 6d |GetOptio|nalParam|
|000034b0| 65 74 65 72 28 6b 65 79 | 41 45 52 65 71 75 65 73 |eter(key|AEReques|
|000034c0| 74 65 64 54 79 70 65 2c | 74 79 70 65 41 45 4c 69 |tedType,|typeAELi|
|000034d0| 73 74 29 3b 0d 09 09 09 | 09 0d 09 09 54 41 62 73 |st);....|....TAbs|
|000034e0| 74 72 61 63 74 53 63 72 | 69 70 74 61 62 6c 65 4f |tractScr|iptableO|
|000034f0| 62 6a 65 63 74 2a 20 74 | 6f 6b 65 6e 20 3d 20 64 |bject* t|oken = d|
|00003500| 69 72 65 63 74 4f 62 6a | 65 63 74 54 6f 6b 65 6e |irectObj|ectToken|
|00003510| 2e 54 6f 6b 65 6e 4f 62 | 6a 65 63 74 28 29 3b 0d |.TokenOb|ject();.|
|00003520| 09 09 0d 09 09 72 65 73 | 75 6c 74 49 6e 74 65 67 |.....res|ultInteg|
|00003530| 65 72 20 3d 20 74 6f 6b | 65 6e 2d 3e 47 65 74 44 |er = tok|en->GetD|
|00003540| 61 74 61 53 69 7a 65 47 | 69 76 65 6e 4c 69 73 74 |ataSizeG|ivenList|
|00003550| 4f 66 54 79 70 65 73 28 | 74 72 61 6e 73 61 63 74 |OfTypes(|transact|
|00003560| 69 6f 6e 2c 20 70 43 6f | 6e 74 65 6e 74 73 2c 20 |ion, pCo|ntents, |
|00003570| 72 65 71 75 65 73 74 65 | 64 54 79 70 65 29 3b 0d |requeste|dType);.|
|00003580| 09 09 72 65 73 75 6c 74 | 4c 69 73 74 2e 4d 61 6b |..result|List.Mak|
|00003590| 65 4c 6f 6e 67 28 72 65 | 73 75 6c 74 49 6e 74 65 |eLong(re|sultInte|
|000035a0| 67 65 72 29 3b 0d 09 09 | 72 65 70 6c 79 2e 50 75 |ger);...|reply.Pu|
|000035b0| 74 52 65 73 75 6c 74 28 | 72 65 73 75 6c 74 4c 69 |tResult(|resultLi|
|000035c0| 73 74 29 3b 0d 09 09 7d | 0d 09 45 58 43 45 50 54 |st);...}|..EXCEPT|
|000035d0| 0d 09 09 7b 0d 09 09 65 | 72 72 20 3d 20 28 4f 53 |...{...e|rr = (OS|
|000035e0| 45 72 72 29 20 45 78 63 | 65 70 74 5f 45 72 72 6f |Err) Exc|ept_Erro|
|000035f0| 72 28 29 3b 0d 09 09 50 | 72 6f 63 65 73 73 45 72 |r();...P|rocessEr|
|00003600| 72 6f 72 28 65 72 72 2c | 20 6f 66 66 65 6e 64 69 |ror(err,| offendi|
|00003610| 6e 67 4f 62 6a 65 63 74 | 2c 20 72 65 70 6c 79 29 |ngObject|, reply)|
|00003620| 3b 0d 09 09 7d 0d 09 45 | 4e 44 54 52 59 0d 0d 09 |;...}..E|NDTRY...|
|00003630| 64 65 6c 65 74 65 20 74 | 72 61 6e 73 61 63 74 69 |delete t|ransacti|
|00003640| 6f 6e 3b 0d 09 72 65 71 | 75 65 73 74 65 64 54 79 |on;..req|uestedTy|
|00003650| 70 65 2e 44 69 73 70 6f | 73 65 28 29 3b 0d 09 72 |pe.Dispo|se();..r|
|00003660| 65 73 75 6c 74 4c 69 73 | 74 2e 44 69 73 70 6f 73 |esultLis|t.Dispos|
|00003670| 65 28 29 3b 0d 09 64 69 | 72 65 63 74 4f 62 6a 65 |e();..di|rectObje|
|00003680| 63 74 54 6f 6b 65 6e 2e | 44 69 73 70 6f 73 65 54 |ctToken.|DisposeT|
|00003690| 6f 6b 65 6e 28 29 3b 0d | 09 6f 62 6a 65 63 74 53 |oken();.|.objectS|
|000036a0| 70 65 63 69 66 69 65 72 | 4c 69 73 74 2e 44 69 73 |pecifier|List.Dis|
|000036b0| 70 6f 73 65 28 29 3b 0d | 09 6f 66 66 65 6e 64 69 |pose();.|.offendi|
|000036c0| 6e 67 4f 62 6a 65 63 74 | 2e 44 69 73 70 6f 73 65 |ngObject|.Dispose|
|000036d0| 28 29 3b 0d 0d 09 72 65 | 74 75 72 6e 20 65 72 72 |();...re|turn err|
|000036e0| 3b 0d 09 7d 20 2f 2f 20 | 54 43 6f 72 65 53 75 69 |;..} // |TCoreSui|
|000036f0| 74 65 3a 3a 44 6f 47 65 | 74 44 61 74 61 53 69 7a |te::DoGe|tDataSiz|
|00003700| 65 20 0d 0d 2f 2f 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e ..//--|--------|
|00003710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2f |--------|------./|
|00003760| 2f 20 54 43 6f 72 65 53 | 75 69 74 65 3a 3a 44 6f |/ TCoreS|uite::Do|
|00003770| 4e 65 77 45 6c 65 6d 65 | 6e 74 3a 20 0d 2f 2f 2d |NewEleme|nt: .//-|
|00003780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037d0| 2d 2d 2d 2d 2d 2d 2d 0d | 70 61 73 63 61 6c 20 4f |-------.|pascal O|
|000037e0| 53 45 72 72 20 54 43 6f | 72 65 53 75 69 74 65 3a |SErr TCo|reSuite:|
|000037f0| 3a 44 6f 4e 65 77 45 6c | 65 6d 65 6e 74 28 54 41 |:DoNewEl|ement(TA|
|00003800| 45 76 65 6e 74 26 20 61 | 65 2c 20 54 41 45 76 65 |Event& a|e, TAEve|
|00003810| 6e 74 26 20 72 65 70 6c | 79 2c 20 6c 6f 6e 67 20 |nt& repl|y, long |
|00003820| 2f 2a 20 72 65 66 43 6f | 6e 20 2a 2f 29 0d 09 7b |/* refCo|n */)..{|
|00003830| 0d 09 4f 53 45 72 72 20 | 65 72 72 20 3d 20 6e 6f |..OSErr |err = no|
|00003840| 45 72 72 3b 0d 0d 09 54 | 44 65 73 63 72 69 70 74 |Err;...T|Descript|
|00003850| 6f 72 20 69 6e 73 65 72 | 74 69 6f 6e 4c 6f 63 61 |or inser|tionLoca|
|00003860| 74 69 6f 6e 3b 0d 09 54 | 54 6f 6b 65 6e 44 65 73 |tion;..T|TokenDes|
|00003870| 63 72 69 70 74 6f 72 20 | 69 6e 73 65 72 74 48 65 |criptor |insertHe|
|00003880| 72 65 54 6f 6b 65 6e 3b | 0d 09 54 44 65 73 63 72 |reToken;|..TDescr|
|00003890| 69 70 74 6f 72 20 69 6e | 69 74 69 61 6c 44 61 74 |iptor in|itialDat|
|000038a0| 61 3b 0d 09 54 44 65 73 | 63 72 69 70 74 6f 72 20 |a;..TDes|criptor |
|000038b0| 69 6e 69 74 69 61 6c 50 | 72 6f 70 65 72 74 69 65 |initialP|ropertie|
|000038c0| 73 3b 0d 09 54 44 65 73 | 63 72 69 70 74 6f 72 20 |s;..TDes|criptor |
|000038d0| 72 65 73 75 6c 74 4c 69 | 73 74 3b 0d 09 54 44 65 |resultLi|st;..TDe|
|000038e0| 73 63 72 69 70 74 6f 72 | 20 6f 66 66 65 6e 64 69 |scriptor| offendi|
|000038f0| 6e 67 4f 62 6a 65 63 74 | 3b 0d 09 0d 09 54 54 72 |ngObject|;....TTr|
|00003900| 61 6e 73 61 63 74 69 6f | 6e 2a 20 74 72 61 6e 73 |ansactio|n* trans|
|00003910| 61 63 74 69 6f 6e 20 3d | 20 6e 69 6c 3b 0d 09 4e |action =| nil;..N|
|00003920| 4f 52 45 47 49 53 54 45 | 52 28 74 72 61 6e 73 61 |OREGISTE|R(transa|
|00003930| 63 74 69 6f 6e 29 3b 0d | 09 09 0d 09 54 52 59 0d |ction);.|....TRY.|
|00003940| 09 09 7b 0d 09 09 74 72 | 61 6e 73 61 63 74 69 6f |..{...tr|ansactio|
|00003950| 6e 20 3d 20 6e 65 77 20 | 54 54 72 61 6e 73 61 63 |n = new |TTransac|
|00003960| 74 69 6f 6e 3b 0d 09 09 | 44 65 73 63 54 79 70 65 |tion;...|DescType|
|00003970| 20 6e 65 77 4f 62 6a 65 | 63 74 43 6c 61 73 73 3b | newObje|ctClass;|
|00003980| 0d 09 09 0d 09 09 6e 65 | 77 4f 62 6a 65 63 74 43 |......ne|wObjectC|
|00003990| 6c 61 73 73 20 3d 20 28 | 44 65 73 63 54 79 70 65 |lass = (|DescType|
|000039a0| 29 20 61 65 2e 47 65 74 | 4c 6f 6e 67 50 61 72 61 |) ae.Get|LongPara|
|000039b0| 6d 65 74 65 72 28 6b 65 | 79 41 45 4f 62 6a 65 63 |meter(ke|yAEObjec|
|000039c0| 74 43 6c 61 73 73 2c 20 | 74 79 70 65 54 79 70 65 |tClass, |typeType|
|000039d0| 29 3b 0d 09 09 69 6e 73 | 65 72 74 69 6f 6e 4c 6f |);...ins|ertionLo|
|000039e0| 63 61 74 69 6f 6e 20 3d | 20 61 65 2e 47 65 74 4f |cation =| ae.GetO|
|000039f0| 70 74 69 6f 6e 61 6c 50 | 61 72 61 6d 65 74 65 72 |ptionalP|arameter|
|00003a00| 28 6b 65 79 41 45 49 6e | 73 65 72 74 48 65 72 65 |(keyAEIn|sertHere|
|00003a10| 29 3b 0d 09 09 69 6e 69 | 74 69 61 6c 44 61 74 61 |);...ini|tialData|
|00003a20| 20 3d 20 61 65 2e 47 65 | 74 4f 70 74 69 6f 6e 61 | = ae.Ge|tOptiona|
|00003a30| 6c 50 61 72 61 6d 65 74 | 65 72 28 6b 65 79 41 53 |lParamet|er(keyAS|
|00003a40| 50 72 65 70 6f 73 69 74 | 69 6f 6e 54 6f 29 3b 0d |Preposit|ionTo);.|
|00003a50| 09 09 69 66 28 69 6e 69 | 74 69 61 6c 44 61 74 61 |..if(ini|tialData|
|00003a60| 2e 49 73 4e 75 6c 6c 44 | 65 73 63 72 69 70 74 6f |.IsNullD|escripto|
|00003a70| 72 28 29 29 0d 09 09 09 | 69 6e 69 74 69 61 6c 44 |r())....|initialD|
|00003a80| 61 74 61 20 3d 20 61 65 | 2e 47 65 74 4f 70 74 69 |ata = ae|.GetOpti|
|00003a90| 6f 6e 61 6c 50 61 72 61 | 6d 65 74 65 72 28 6b 65 |onalPara|meter(ke|
|00003aa0| 79 41 45 44 61 74 61 29 | 3b 0d 09 09 69 6e 69 74 |yAEData)|;...init|
|00003ab0| 69 61 6c 50 72 6f 70 65 | 72 74 69 65 73 20 3d 20 |ialPrope|rties = |
|00003ac0| 61 65 2e 47 65 74 4f 70 | 74 69 6f 6e 61 6c 50 61 |ae.GetOp|tionalPa|
|00003ad0| 72 61 6d 65 74 65 72 28 | 6b 65 79 41 45 50 72 6f |rameter(|keyAEPro|
|00003ae0| 70 44 61 74 61 29 3b 0d | 09 09 09 09 0d 09 09 2f |pData);.|......./|
|00003af0| 2f 0d 09 09 2f 2f 20 52 | 65 73 6f 6c 76 65 20 74 |/...// R|esolve t|
|00003b00| 68 65 20 69 6e 73 65 72 | 74 69 6f 6e 20 6c 6f 63 |he inser|tion loc|
|00003b10| 61 74 69 6f 6e 20 70 61 | 72 61 6d 65 74 65 72 0d |ation pa|rameter.|
|00003b20| 09 09 2f 2f 0d 09 09 69 | 6e 73 65 72 74 48 65 72 |..//...i|nsertHer|
|00003b30| 65 54 6f 6b 65 6e 20 3d | 20 69 6e 73 65 72 74 69 |eToken =| inserti|
|00003b40| 6f 6e 4c 6f 63 61 74 69 | 6f 6e 2e 52 65 73 6f 6c |onLocati|on.Resol|
|00003b50| 76 65 28 74 72 61 6e 73 | 61 63 74 69 6f 6e 2c 20 |ve(trans|action, |
|00003b60| 26 6f 66 66 65 6e 64 69 | 6e 67 4f 62 6a 65 63 74 |&offendi|ngObject|
|00003b70| 29 3b 0d 0d 09 09 54 41 | 62 73 74 72 61 63 74 53 |);....TA|bstractS|
|00003b80| 63 72 69 70 74 61 62 6c | 65 4f 62 6a 65 63 74 2a |criptabl|eObject*|
|00003b90| 20 74 6f 6b 65 6e 20 3d | 20 69 6e 73 65 72 74 48 | token =| insertH|
|00003ba0| 65 72 65 54 6f 6b 65 6e | 2e 54 6f 6b 65 6e 4f 62 |ereToken|.TokenOb|
|00003bb0| 6a 65 63 74 28 29 3b 0d | 09 09 54 41 62 73 74 72 |ject();.|..TAbstr|
|00003bc0| 61 63 74 53 63 72 69 70 | 74 61 62 6c 65 4f 62 6a |actScrip|tableObj|
|00003bd0| 65 63 74 2a 20 6f 6e 65 | 52 65 73 75 6c 74 20 3d |ect* one|Result =|
|00003be0| 20 6e 69 6c 3b 0d 0d 09 | 09 42 6f 6f 6c 65 61 6e | nil;...|.Boolean|
|00003bf0| 20 75 73 65 64 49 6e 69 | 74 69 61 6c 44 61 74 61 | usedIni|tialData|
|00003c00| 20 3d 20 66 61 6c 73 65 | 3b 0d 09 09 42 6f 6f 6c | = false|;...Bool|
|00003c10| 65 61 6e 20 75 73 65 64 | 49 6e 69 74 69 61 6c 50 |ean used|InitialP|
|00003c20| 72 6f 70 65 72 74 69 65 | 73 20 3d 20 66 61 6c 73 |ropertie|s = fals|
|00003c30| 65 3b 0d 09 09 09 09 0d | 09 09 2f 2f 0d 09 09 2f |e;......|..//.../|
|00003c40| 2f 20 47 69 76 65 20 74 | 68 65 20 74 6f 6b 65 6e |/ Give t|he token|
|00003c50| 20 74 68 65 20 6e 65 77 | 20 6f 62 6a 65 63 74 20 | the new| object |
|00003c60| 63 6c 61 73 73 20 61 6e | 64 20 69 74 73 20 69 6e |class an|d its in|
|00003c70| 69 74 69 61 6c 20 64 61 | 74 61 0d 09 09 2f 2f 0d |itial da|ta...//.|
|00003c80| 09 09 6f 6e 65 52 65 73 | 75 6c 74 20 3d 20 74 6f |..oneRes|ult = to|
|00003c90| 6b 65 6e 2d 3e 43 72 65 | 61 74 65 4e 65 77 45 6c |ken->Cre|ateNewEl|
|00003ca0| 65 6d 65 6e 74 28 74 72 | 61 6e 73 61 63 74 69 6f |ement(tr|ansactio|
|00003cb0| 6e 2c 20 61 65 2c 20 72 | 65 70 6c 79 2c 20 6e 65 |n, ae, r|eply, ne|
|00003cc0| 77 4f 62 6a 65 63 74 43 | 6c 61 73 73 2c 20 69 6e |wObjectC|lass, in|
|00003cd0| 69 74 69 61 6c 44 61 74 | 61 2c 20 69 6e 69 74 69 |itialDat|a, initi|
|00003ce0| 61 6c 50 72 6f 70 65 72 | 74 69 65 73 2c 20 75 73 |alProper|ties, us|
|00003cf0| 65 64 49 6e 69 74 69 61 | 6c 44 61 74 61 2c 20 75 |edInitia|lData, u|
|00003d00| 73 65 64 49 6e 69 74 69 | 61 6c 50 72 6f 70 65 72 |sedIniti|alProper|
|00003d10| 74 69 65 73 29 3b 0d 09 | 09 0d 09 09 2f 2f 0d 09 |ties);..|....//..|
|00003d20| 09 2f 2f 20 57 65 20 64 | 6f 6e 27 74 20 65 78 70 |.// We d|on't exp|
|00003d30| 65 63 74 20 27 6f 6e 65 | 52 65 73 75 6c 74 27 20 |ect 'one|Result' |
|00003d40| 74 6f 20 65 76 65 72 20 | 63 6f 6d 65 20 62 61 63 |to ever |come bac|
|00003d50| 6b 20 6e 69 6c 3b 0d 09 | 09 2f 2f 20 69 66 20 74 |k nil;..|.// if t|
|00003d60| 68 65 20 6f 62 6a 65 63 | 74 20 63 6f 75 6c 64 6e |he objec|t couldn|
|00003d70| 27 74 20 62 65 20 63 72 | 65 61 74 65 64 2c 20 74 |'t be cr|eated, t|
|00003d80| 68 65 6e 20 27 43 72 65 | 61 74 65 4e 65 77 45 6c |hen 'Cre|ateNewEl|
|00003d90| 65 6d 65 6e 74 27 0d 09 | 09 2f 2f 20 73 68 6f 75 |ement'..|.// shou|
|00003da0| 6c 64 20 66 61 69 6c 2e | 0d 09 09 2f 2f 0d 09 09 |ld fail.|...//...|
|00003db0| 69 66 28 6f 6e 65 52 65 | 73 75 6c 74 20 3d 3d 20 |if(oneRe|sult == |
|00003dc0| 6e 69 6c 29 0d 09 09 09 | 46 61 69 6c 45 72 72 28 |nil)....|FailErr(|
|00003dd0| 65 72 72 41 45 45 76 65 | 6e 74 46 61 69 6c 65 64 |errAEEve|ntFailed|
|00003de0| 29 3b 0d 0d 09 09 2f 2f | 0d 09 09 2f 2f 20 49 66 |);....//|...// If|
|00003df0| 20 63 72 65 61 74 65 20 | 72 65 61 6c 6c 79 20 64 | create |really d|
|00003e00| 69 64 20 63 72 65 61 74 | 65 20 73 6f 6d 65 74 68 |id creat|e someth|
|00003e10| 69 6e 67 2c 20 74 68 65 | 6e 0d 09 09 2f 2f 20 77 |ing, the|n...// w|
|00003e20| 65 20 77 6f 75 6c 64 20 | 6c 69 6b 65 20 74 6f 20 |e would |like to |
|00003e30| 73 65 74 20 69 74 73 20 | 69 6e 69 74 69 61 6c 20 |set its |initial |
|00003e40| 70 72 6f 70 65 72 74 69 | 65 73 0d 09 09 2f 2f 20 |properti|es...// |
|00003e50| 61 6e 64 20 72 65 74 75 | 72 6e 20 61 20 72 65 73 |and retu|rn a res|
|00003e60| 75 6c 74 20 6f 62 6a 65 | 63 74 20 73 70 65 63 69 |ult obje|ct speci|
|00003e70| 66 69 65 72 20 74 6f 20 | 74 68 65 20 6f 62 6a 65 |fier to |the obje|
|00003e80| 63 74 0d 09 09 2f 2f 20 | 49 66 20 69 6e 69 74 69 |ct...// |If initi|
|00003e90| 61 6c 20 70 72 6f 70 65 | 72 74 69 65 73 20 77 65 |al prope|rties we|
|00003ea0| 72 65 20 73 70 65 63 69 | 66 69 65 64 2c 20 74 68 |re speci|fied, th|
|00003eb0| 65 6e 20 73 65 74 20 74 | 68 65 6d 20 68 65 72 65 |en set t|hem here|
|00003ec0| 0d 09 09 2f 2f 0d 09 09 | 69 66 28 28 75 73 65 64 |...//...|if((used|
|00003ed0| 49 6e 69 74 69 61 6c 50 | 72 6f 70 65 72 74 69 65 |InitialP|ropertie|
|00003ee0| 73 20 3d 3d 20 66 61 6c | 73 65 29 20 26 26 20 28 |s == fal|se) && (|
|00003ef0| 69 6e 69 74 69 61 6c 50 | 72 6f 70 65 72 74 69 65 |initialP|ropertie|
|00003f00| 73 2e 44 65 73 63 72 69 | 70 74 6f 72 54 79 70 65 |s.Descri|ptorType|
|00003f10| 28 29 20 21 3d 20 74 79 | 70 65 4e 75 6c 6c 29 29 |() != ty|peNull))|
|00003f20| 0d 09 09 09 7b 0d 09 09 | 09 6f 6e 65 52 65 73 75 |....{...|.oneResu|
|00003f30| 6c 74 2d 3e 53 65 74 50 | 72 6f 70 65 72 74 69 65 |lt->SetP|ropertie|
|00003f40| 73 28 74 72 61 6e 73 61 | 63 74 69 6f 6e 2c 20 69 |s(transa|ction, i|
|00003f50| 6e 69 74 69 61 6c 50 72 | 6f 70 65 72 74 69 65 73 |nitialPr|operties|
|00003f60| 29 3b 0d 09 09 09 7d 0d | 09 09 0d 09 09 2f 2f 0d |);....}.|.....//.|
|00003f70| 09 09 2f 2f 20 49 66 20 | 69 6e 69 74 69 61 6c 20 |..// If |initial |
|00003f80| 64 61 74 61 20 77 61 73 | 20 73 70 65 63 69 66 69 |data was| specifi|
|00003f90| 65 64 2c 20 74 68 65 6e | 20 73 65 74 20 69 74 0d |ed, then| set it.|
|00003fa0| 09 09 2f 2f 0d 09 09 69 | 66 28 28 75 73 65 64 49 |..//...i|f((usedI|
|00003fb0| 6e 69 74 69 61 6c 44 61 | 74 61 20 3d 3d 20 66 61 |nitialDa|ta == fa|
|00003fc0| 6c 73 65 29 20 26 26 20 | 28 69 6e 69 74 69 61 6c |lse) && |(initial|
|00003fd0| 44 61 74 61 2e 44 65 73 | 63 72 69 70 74 6f 72 54 |Data.Des|criptorT|
|00003fe0| 79 70 65 28 29 20 21 3d | 20 74 79 70 65 4e 75 6c |ype() !=| typeNul|
|00003ff0| 6c 29 29 0d 09 09 09 7b | 0d 09 09 09 6f 6e 65 52 |l))....{|....oneR|
|00004000| 65 73 75 6c 74 2d 3e 53 | 65 74 44 61 74 61 28 74 |esult->S|etData(t|
|00004010| 72 61 6e 73 61 63 74 69 | 6f 6e 2c 20 69 6e 69 74 |ransacti|on, init|
|00004020| 69 61 6c 44 61 74 61 29 | 3b 0d 09 09 09 7d 0d 09 |ialData)|;....}..|
|00004030| 09 0d 09 09 2f 2f 0d 09 | 09 2f 2f 20 4d 61 6b 65 |....//..|.// Make|
|00004040| 20 61 6e 20 6f 62 6a 65 | 63 74 20 73 70 65 63 69 | an obje|ct speci|
|00004050| 66 69 65 72 20 66 6f 72 | 20 74 68 65 20 74 6f 6b |fier for| the tok|
|00004060| 65 6e 20 61 6e 64 20 61 | 64 64 20 69 74 20 74 6f |en and a|dd it to|
|00004070| 0d 09 09 2f 2f 20 74 68 | 65 20 72 65 73 75 6c 74 |...// th|e result|
|00004080| 20 6c 69 73 74 0d 09 09 | 2f 2f 0d 09 09 72 65 73 | list...|//...res|
|00004090| 75 6c 74 4c 69 73 74 20 | 3d 20 6f 6e 65 52 65 73 |ultList |= oneRes|
|000040a0| 75 6c 74 2d 3e 42 75 69 | 6c 64 4f 62 6a 65 63 74 |ult->Bui|ldObject|
|000040b0| 53 70 65 63 69 66 69 65 | 72 28 74 72 61 6e 73 61 |Specifie|r(transa|
|000040c0| 63 74 69 6f 6e 29 3b 09 | 09 09 09 09 09 0d 2f 2f |ction);.|......//|
|000040d0| 09 09 6f 6e 65 52 65 73 | 75 6c 74 2d 3e 44 69 73 |..oneRes|ult->Dis|
|000040e0| 70 6f 73 65 44 65 73 69 | 67 6e 61 74 6f 72 28 29 |poseDesi|gnator()|
|000040f0| 3b 0d 0d 09 09 74 72 61 | 6e 73 61 63 74 69 6f 6e |;....tra|nsaction|
|00004100| 2d 3e 43 6f 6d 6d 69 74 | 43 68 61 6e 67 65 73 28 |->Commit|Changes(|
|00004110| 29 3b 0d 09 09 0d 09 09 | 2f 2f 0d 09 09 2f 2f 20 |);......|//...// |
|00004120| 4f 6e 63 65 20 61 6c 6c | 20 6f 66 20 74 68 65 20 |Once all| of the |
|00004130| 69 74 65 6d 73 20 61 72 | 65 20 63 72 65 61 74 65 |items ar|e create|
|00004140| 64 20 61 6e 64 20 69 6e | 69 74 69 61 6c 69 7a 65 |d and in|itialize|
|00004150| 64 2c 20 70 75 74 20 74 | 68 65 0d 09 09 2f 2f 20 |d, put t|he...// |
|00004160| 72 65 73 75 6c 74 20 6c | 69 73 74 20 69 6e 74 6f |result l|ist into|
|00004170| 20 74 68 65 20 72 65 70 | 6c 79 2e 0d 09 09 2f 2f | the rep|ly....//|
|00004180| 0d 09 09 72 65 70 6c 79 | 2e 50 75 74 52 65 73 75 |...reply|.PutResu|
|00004190| 6c 74 28 72 65 73 75 6c | 74 4c 69 73 74 29 3b 0d |lt(resul|tList);.|
|000041a0| 09 09 7d 0d 09 45 58 43 | 45 50 54 0d 09 09 7b 0d |..}..EXC|EPT...{.|
|000041b0| 09 09 65 72 72 20 3d 20 | 28 4f 53 45 72 72 29 20 |..err = |(OSErr) |
|000041c0| 45 78 63 65 70 74 5f 45 | 72 72 6f 72 28 29 3b 0d |Except_E|rror();.|
|000041d0| 09 09 50 72 6f 63 65 73 | 73 45 72 72 6f 72 28 65 |..Proces|sError(e|
|000041e0| 72 72 2c 20 6f 66 66 65 | 6e 64 69 6e 67 4f 62 6a |rr, offe|ndingObj|
|000041f0| 65 63 74 2c 20 72 65 70 | 6c 79 29 3b 0d 09 09 7d |ect, rep|ly);...}|
|00004200| 0d 09 45 4e 44 54 52 59 | 0d 09 0d 09 64 65 6c 65 |..ENDTRY|....dele|
|00004210| 74 65 20 74 72 61 6e 73 | 61 63 74 69 6f 6e 3b 0d |te trans|action;.|
|00004220| 09 0d 2f 2f 09 69 6e 73 | 65 72 74 48 65 72 65 54 |..//.ins|ertHereT|
|00004230| 6f 6b 65 6e 2e 44 69 73 | 70 6f 73 65 54 6f 6b 65 |oken.Dis|poseToke|
|00004240| 6e 28 29 3b 0d 09 69 6e | 73 65 72 74 69 6f 6e 4c |n();..in|sertionL|
|00004250| 6f 63 61 74 69 6f 6e 2e | 44 69 73 70 6f 73 65 28 |ocation.|Dispose(|
|00004260| 29 3b 0d 09 69 6e 69 74 | 69 61 6c 44 61 74 61 2e |);..init|ialData.|
|00004270| 44 69 73 70 6f 73 65 28 | 29 3b 0d 09 69 6e 69 74 |Dispose(|);..init|
|00004280| 69 61 6c 50 72 6f 70 65 | 72 74 69 65 73 2e 44 69 |ialPrope|rties.Di|
|00004290| 73 70 6f 73 65 28 29 3b | 0d 09 72 65 73 75 6c 74 |spose();|..result|
|000042a0| 4c 69 73 74 2e 44 69 73 | 70 6f 73 65 28 29 3b 0d |List.Dis|pose();.|
|000042b0| 09 6f 66 66 65 6e 64 69 | 6e 67 4f 62 6a 65 63 74 |.offendi|ngObject|
|000042c0| 2e 44 69 73 70 6f 73 65 | 28 29 3b 0d 09 0d 09 72 |.Dispose|();....r|
|000042d0| 65 74 75 72 6e 20 65 72 | 72 3b 0d 09 7d 20 2f 2f |eturn er|r;..} //|
|000042e0| 20 54 43 6f 72 65 53 75 | 69 74 65 3a 3a 44 6f 4e | TCoreSu|ite::DoN|
|000042f0| 65 77 45 6c 65 6d 65 6e | 74 20 0d 0d 2f 2f 2d 2d |ewElemen|t ..//--|
|00004300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004350| 2d 2d 2d 2d 2d 2d 0d 2f | 2f 20 54 43 6f 72 65 53 |------./|/ TCoreS|
|00004360| 75 69 74 65 3a 3a 44 6f | 4e 75 6d 62 65 72 4f 66 |uite::Do|NumberOf|
|00004370| 45 6c 65 6d 65 6e 74 73 | 3a 20 0d 2f 2f 2d 2d 2d |Elements|: .//---|
|00004380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000043a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000043b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000043c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000043d0| 2d 2d 2d 2d 2d 0d 70 61 | 73 63 61 6c 20 4f 53 45 |-----.pa|scal OSE|
|000043e0| 72 72 20 54 43 6f 72 65 | 53 75 69 74 65 3a 3a 44 |rr TCore|Suite::D|
|000043f0| 6f 4e 75 6d 62 65 72 4f | 66 45 6c 65 6d 65 6e 74 |oNumberO|fElement|
|00004400| 73 28 54 41 45 76 65 6e | 74 26 20 61 65 2c 20 54 |s(TAEven|t& ae, T|
|00004410| 41 45 76 65 6e 74 26 20 | 72 65 70 6c 79 2c 20 6c |AEvent& |reply, l|
|00004420| 6f 6e 67 20 2f 2a 20 72 | 65 66 43 6f 6e 20 2a 2f |ong /* r|efCon */|
|00004430| 29 0d 09 7b 0d 09 4f 53 | 45 72 72 20 65 72 72 20 |)..{..OS|Err err |
|00004440| 3d 20 6e 6f 45 72 72 3b | 0d 0d 09 54 44 65 73 63 |= noErr;|...TDesc|
|00004450| 72 69 70 74 6f 72 20 6f | 62 6a 65 63 74 53 70 65 |riptor o|bjectSpe|
|00004460| 63 69 66 69 65 72 4c 69 | 73 74 3b 0d 09 54 54 6f |cifierLi|st;..TTo|
|00004470| 6b 65 6e 44 65 73 63 72 | 69 70 74 6f 72 20 64 69 |kenDescr|iptor di|
|00004480| 72 65 63 74 4f 62 6a 65 | 63 74 54 6f 6b 65 6e 3b |rectObje|ctToken;|
|00004490| 0d 09 54 44 65 73 63 72 | 69 70 74 6f 72 20 72 65 |..TDescr|iptor re|
|000044a0| 73 75 6c 74 3b 0d 09 54 | 44 65 73 63 72 69 70 74 |sult;..T|Descript|
|000044b0| 6f 72 20 6f 66 66 65 6e | 64 69 6e 67 4f 62 6a 65 |or offen|dingObje|
|000044c0| 63 74 3b 0d 09 54 54 72 | 61 6e 73 61 63 74 69 6f |ct;..TTr|ansactio|
|000044d0| 6e 2a 20 74 72 61 6e 73 | 61 63 74 69 6f 6e 20 3d |n* trans|action =|
|000044e0| 20 6e 69 6c 3b 0d 09 4e | 4f 52 45 47 49 53 54 45 | nil;..N|OREGISTE|
|000044f0| 52 28 74 72 61 6e 73 61 | 63 74 69 6f 6e 29 3b 0d |R(transa|ction);.|
|00004500| 09 0d 09 6c 6f 6e 67 20 | 74 68 65 43 6f 75 6e 74 |...long |theCount|
|00004510| 20 3d 20 30 3b 0d 09 0d | 09 54 52 59 0d 09 09 7b | = 0;...|.TRY...{|
|00004520| 0d 09 09 74 72 61 6e 73 | 61 63 74 69 6f 6e 20 3d |...trans|action =|
|00004530| 20 6e 65 77 20 54 54 72 | 61 6e 73 61 63 74 69 6f | new TTr|ansactio|
|00004540| 6e 3b 0d 09 09 6f 62 6a | 65 63 74 53 70 65 63 69 |n;...obj|ectSpeci|
|00004550| 66 69 65 72 4c 69 73 74 | 20 3d 20 61 65 2e 47 65 |fierList| = ae.Ge|
|00004560| 74 44 69 72 65 63 74 4f | 62 6a 65 63 74 28 29 3b |tDirectO|bject();|
|00004570| 0d 09 09 64 69 72 65 63 | 74 4f 62 6a 65 63 74 54 |...direc|tObjectT|
|00004580| 6f 6b 65 6e 20 3d 20 6f | 62 6a 65 63 74 53 70 65 |oken = o|bjectSpe|
|00004590| 63 69 66 69 65 72 4c 69 | 73 74 2e 52 65 73 6f 6c |cifierLi|st.Resol|
|000045a0| 76 65 28 74 72 61 6e 73 | 61 63 74 69 6f 6e 29 3b |ve(trans|action);|
|000045b0| 0d 09 09 0d 09 09 2f 2f | 0d 09 09 2f 2f 20 47 65 |......//|...// Ge|
|000045c0| 74 20 74 68 65 20 74 79 | 70 65 20 6f 66 20 6f 62 |t the ty|pe of ob|
|000045d0| 6a 65 63 74 20 74 6f 20 | 63 6f 75 6e 74 2e 20 20 |ject to |count.  |
|000045e0| 49 66 20 6e 6f 20 74 79 | 70 65 20 77 61 73 0d 09 |If no ty|pe was..|
|000045f0| 09 2f 2f 20 73 70 65 63 | 69 66 69 65 64 2c 20 61 |.// spec|ified, a|
|00004600| 73 73 75 6d 65 20 74 79 | 70 65 57 69 6c 64 43 61 |ssume ty|peWildCa|
|00004610| 72 64 2e 0d 09 09 2f 2f | 0d 09 09 44 65 73 63 54 |rd....//|...DescT|
|00004620| 79 70 65 20 63 6c 61 73 | 73 54 6f 43 6f 75 6e 74 |ype clas|sToCount|
|00004630| 20 3d 20 28 44 65 73 63 | 54 79 70 65 29 20 61 65 | = (Desc|Type) ae|
|00004640| 2e 47 65 74 4c 6f 6e 67 | 50 61 72 61 6d 65 74 65 |.GetLong|Paramete|
|00004650| 72 28 6b 65 79 41 45 4f | 62 6a 65 63 74 43 6c 61 |r(keyAEO|bjectCla|
|00004660| 73 73 2c 20 74 79 70 65 | 54 79 70 65 29 3b 0d 09 |ss, type|Type);..|
|00004670| 09 69 66 28 21 63 6c 61 | 73 73 54 6f 43 6f 75 6e |.if(!cla|ssToCoun|
|00004680| 74 29 0d 09 09 09 63 6c | 61 73 73 54 6f 43 6f 75 |t)....cl|assToCou|
|00004690| 6e 74 20 3d 20 74 79 70 | 65 57 69 6c 64 43 61 72 |nt = typ|eWildCar|
|000046a0| 64 3b 0d 0d 09 09 54 41 | 62 73 74 72 61 63 74 53 |d;....TA|bstractS|
|000046b0| 63 72 69 70 74 61 62 6c | 65 4f 62 6a 65 63 74 2a |criptabl|eObject*|
|000046c0| 20 74 6f 6b 65 6e 20 3d | 20 64 69 72 65 63 74 4f | token =| directO|
|000046d0| 62 6a 65 63 74 54 6f 6b | 65 6e 2e 54 6f 6b 65 6e |bjectTok|en.Token|
|000046e0| 4f 62 6a 65 63 74 28 29 | 3b 0d 09 09 09 7b 0d 09 |Object()|;....{..|
|000046f0| 09 09 74 68 65 43 6f 75 | 6e 74 20 2b 3d 20 74 6f |..theCou|nt += to|
|00004700| 6b 65 6e 2d 3e 43 6f 75 | 6e 74 45 6c 65 6d 65 6e |ken->Cou|ntElemen|
|00004710| 74 73 28 74 72 61 6e 73 | 61 63 74 69 6f 6e 2c 20 |ts(trans|action, |
|00004720| 63 6c 61 73 73 54 6f 43 | 6f 75 6e 74 29 3b 0d 09 |classToC|ount);..|
|00004730| 09 09 7d 0d 09 09 0d 09 | 09 72 65 73 75 6c 74 2e |..}.....|.result.|
|00004740| 4d 61 6b 65 4c 6f 6e 67 | 28 74 68 65 43 6f 75 6e |MakeLong|(theCoun|
|00004750| 74 29 3b 0d 09 09 72 65 | 70 6c 79 2e 50 75 74 52 |t);...re|ply.PutR|
|00004760| 65 73 75 6c 74 28 72 65 | 73 75 6c 74 29 3b 0d 09 |esult(re|sult);..|
|00004770| 09 7d 0d 09 45 58 43 45 | 50 54 0d 09 09 7b 0d 09 |.}..EXCE|PT...{..|
|00004780| 09 65 72 72 20 3d 20 28 | 4f 53 45 72 72 29 20 45 |.err = (|OSErr) E|
|00004790| 78 63 65 70 74 5f 45 72 | 72 6f 72 28 29 3b 0d 09 |xcept_Er|ror();..|
|000047a0| 09 50 72 6f 63 65 73 73 | 45 72 72 6f 72 28 65 72 |.Process|Error(er|
|000047b0| 72 2c 20 6f 66 66 65 6e | 64 69 6e 67 4f 62 6a 65 |r, offen|dingObje|
|000047c0| 63 74 2c 20 72 65 70 6c | 79 29 3b 0d 09 09 7d 0d |ct, repl|y);...}.|
|000047d0| 09 45 4e 44 54 52 59 0d | 0d 09 64 65 6c 65 74 65 |.ENDTRY.|..delete|
|000047e0| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 3b 0d 09 72 | transac|tion;..r|
|000047f0| 65 73 75 6c 74 2e 44 69 | 73 70 6f 73 65 28 29 3b |esult.Di|spose();|
|00004800| 0d 09 64 69 72 65 63 74 | 4f 62 6a 65 63 74 54 6f |..direct|ObjectTo|
|00004810| 6b 65 6e 2e 44 69 73 70 | 6f 73 65 54 6f 6b 65 6e |ken.Disp|oseToken|
|00004820| 28 29 3b 0d 09 6f 62 6a | 65 63 74 53 70 65 63 69 |();..obj|ectSpeci|
|00004830| 66 69 65 72 4c 69 73 74 | 2e 44 69 73 70 6f 73 65 |fierList|.Dispose|
|00004840| 28 29 3b 0d 09 6f 66 66 | 65 6e 64 69 6e 67 4f 62 |();..off|endingOb|
|00004850| 6a 65 63 74 2e 44 69 73 | 70 6f 73 65 28 29 3b 0d |ject.Dis|pose();.|
|00004860| 09 0d 09 72 65 74 75 72 | 6e 20 65 72 72 3b 0d 09 |...retur|n err;..|
|00004870| 7d 20 2f 2f 20 54 43 6f | 72 65 53 75 69 74 65 3a |} // TCo|reSuite:|
|00004880| 3a 44 6f 4e 75 6d 62 65 | 72 4f 66 45 6c 65 6d 65 |:DoNumbe|rOfEleme|
|00004890| 6e 74 73 20 0d 0d 2f 2f | 2d 2d 2d 2d 2d 2d 2d 2d |nts ..//|--------|
|000048a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048f0| 0d 2f 2f 20 54 43 6f 72 | 65 53 75 69 74 65 3a 3a |.// TCor|eSuite::|
|00004900| 44 6f 43 6f 6d 6d 61 6e | 64 3a 20 0d 2f 2f 2d 2d |DoComman|d: .//--|
|00004910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004960| 2d 2d 2d 2d 2d 2d 0d 70 | 61 73 63 61 6c 20 4f 53 |------.p|ascal OS|
|00004970| 45 72 72 20 54 43 6f 72 | 65 53 75 69 74 65 3a 3a |Err TCor|eSuite::|
|00004980| 44 6f 43 6f 6d 6d 61 6e | 64 28 54 41 45 76 65 6e |DoComman|d(TAEven|
|00004990| 74 26 20 61 65 2c 20 54 | 41 45 76 65 6e 74 26 20 |t& ae, T|AEvent& |
|000049a0| 72 65 70 6c 79 2c 20 6c | 6f 6e 67 20 72 65 66 43 |reply, l|ong refC|
|000049b0| 6f 6e 29 0d 09 7b 0d 09 | 4f 53 45 72 72 20 65 72 |on)..{..|OSErr er|
|000049c0| 72 20 3d 20 6e 6f 45 72 | 72 3b 0d 09 0d 09 54 44 |r = noEr|r;....TD|
|000049d0| 65 73 63 72 69 70 74 6f | 72 20 6f 62 6a 65 63 74 |escripto|r object|
|000049e0| 53 70 65 63 69 66 69 65 | 72 4c 69 73 74 3b 0d 09 |Specifie|rList;..|
|000049f0| 54 54 6f 6b 65 6e 44 65 | 73 63 72 69 70 74 6f 72 |TTokenDe|scriptor|
|00004a00| 20 64 69 72 65 63 74 4f | 62 6a 65 63 74 54 6f 6b | directO|bjectTok|
|00004a10| 65 6e 3b 0d 09 54 44 65 | 73 63 72 69 70 74 6f 72 |en;..TDe|scriptor|
|00004a20| 20 72 65 73 75 6c 74 4c | 69 73 74 3b 0d 09 54 44 | resultL|ist;..TD|
|00004a30| 65 73 63 72 69 70 74 6f | 72 20 6e 6f 4f 70 74 69 |escripto|r noOpti|
|00004a40| 6f 6e 61 6c 50 61 72 61 | 6d 65 74 65 72 73 3b 0d |onalPara|meters;.|
|00004a50| 09 54 44 65 73 63 72 69 | 70 74 6f 72 20 72 65 73 |.TDescri|ptor res|
|00004a60| 75 6c 74 44 65 73 63 72 | 69 70 74 6f 72 3b 0d 09 |ultDescr|iptor;..|
|00004a70| 54 44 65 73 63 72 69 70 | 74 6f 72 20 6f 66 66 65 |TDescrip|tor offe|
|00004a80| 6e 64 69 6e 67 4f 62 6a | 65 63 74 3b 0d 09 54 54 |ndingObj|ect;..TT|
|00004a90| 72 61 6e 73 61 63 74 69 | 6f 6e 2a 20 74 72 61 6e |ransacti|on* tran|
|00004aa0| 73 61 63 74 69 6f 6e 20 | 3d 20 6e 69 6c 3b 0d 09 |saction |= nil;..|
|00004ab0| 4e 4f 52 45 47 49 53 54 | 45 52 28 74 72 61 6e 73 |NOREGIST|ER(trans|
|00004ac0| 61 63 74 69 6f 6e 29 3b | 0d 0d 09 54 52 59 0d 09 |action);|...TRY..|
|00004ad0| 09 7b 0d 09 09 74 72 61 | 6e 73 61 63 74 69 6f 6e |.{...tra|nsaction|
|00004ae0| 20 3d 20 6e 65 77 20 54 | 54 72 61 6e 73 61 63 74 | = new T|Transact|
|00004af0| 69 6f 6e 3b 0d 09 09 6f | 62 6a 65 63 74 53 70 65 |ion;...o|bjectSpe|
|00004b00| 63 69 66 69 65 72 4c 69 | 73 74 20 3d 20 61 65 2e |cifierLi|st = ae.|
|00004b10| 47 65 74 4f 70 74 69 6f | 6e 61 6c 50 61 72 61 6d |GetOptio|nalParam|
|00004b20| 65 74 65 72 28 6b 65 79 | 44 69 72 65 63 74 4f 62 |eter(key|DirectOb|
|00004b30| 6a 65 63 74 29 3b 0d 09 | 09 64 69 72 65 63 74 4f |ject);..|.directO|
|00004b40| 62 6a 65 63 74 54 6f 6b | 65 6e 20 3d 20 6f 62 6a |bjectTok|en = obj|
|00004b50| 65 63 74 53 70 65 63 69 | 66 69 65 72 4c 69 73 74 |ectSpeci|fierList|
|00004b60| 2e 52 65 73 6f 6c 76 65 | 28 74 72 61 6e 73 61 63 |.Resolve|(transac|
|00004b70| 74 69 6f 6e 2c 20 26 6f | 66 66 65 6e 64 69 6e 67 |tion, &o|ffending|
|00004b80| 4f 62 6a 65 63 74 29 3b | 0d 09 09 0d 09 09 54 41 |Object);|......TA|
|00004b90| 62 73 74 72 61 63 74 53 | 63 72 69 70 74 61 62 6c |bstractS|criptabl|
|00004ba0| 65 4f 62 6a 65 63 74 2a | 20 74 6f 6b 65 6e 20 3d |eObject*| token =|
|00004bb0| 20 64 69 72 65 63 74 4f | 62 6a 65 63 74 54 6f 6b | directO|bjectTok|
|00004bc0| 65 6e 2e 54 6f 6b 65 6e | 4f 62 6a 65 63 74 28 29 |en.Token|Object()|
|00004bd0| 3b 0d 09 09 09 7b 0d 09 | 09 09 72 65 73 75 6c 74 |;....{..|..result|
|00004be0| 44 65 73 63 72 69 70 74 | 6f 72 20 3d 20 74 6f 6b |Descript|or = tok|
|00004bf0| 65 6e 2d 3e 41 45 43 6f | 6d 6d 61 6e 64 44 69 73 |en->AECo|mmandDis|
|00004c00| 70 61 74 63 68 28 74 72 | 61 6e 73 61 63 74 69 6f |patch(tr|ansactio|
|00004c10| 6e 2c 20 61 65 2c 20 72 | 65 70 6c 79 2c 20 72 65 |n, ae, r|eply, re|
|00004c20| 66 43 6f 6e 29 3b 0d 09 | 09 09 72 65 73 75 6c 74 |fCon);..|..result|
|00004c30| 4c 69 73 74 2e 41 64 6f | 70 74 4c 69 73 74 28 26 |List.Ado|ptList(&|
|00004c40| 72 65 73 75 6c 74 44 65 | 73 63 72 69 70 74 6f 72 |resultDe|scriptor|
|00004c50| 29 3b 0d 09 09 09 72 65 | 73 75 6c 74 44 65 73 63 |);....re|sultDesc|
|00004c60| 72 69 70 74 6f 72 2e 4d | 61 6b 65 4e 75 6c 6c 28 |riptor.M|akeNull(|
|00004c70| 29 3b 0d 09 09 09 7d 0d | 09 09 74 72 61 6e 73 61 |);....}.|..transa|
|00004c80| 63 74 69 6f 6e 2d 3e 43 | 6f 6d 6d 69 74 43 68 61 |ction->C|ommitCha|
|00004c90| 6e 67 65 73 28 29 3b 0d | 09 09 72 65 70 6c 79 2e |nges();.|..reply.|
|00004ca0| 50 75 74 52 65 73 75 6c | 74 28 72 65 73 75 6c 74 |PutResul|t(result|
|00004cb0| 4c 69 73 74 29 3b 0d 09 | 09 7d 0d 09 45 58 43 45 |List);..|.}..EXCE|
|00004cc0| 50 54 0d 09 09 7b 0d 09 | 09 72 65 73 75 6c 74 44 |PT...{..|.resultD|
|00004cd0| 65 73 63 72 69 70 74 6f | 72 2e 44 69 73 70 6f 73 |escripto|r.Dispos|
|00004ce0| 65 28 29 3b 0d 09 09 65 | 72 72 20 3d 20 28 4f 53 |e();...e|rr = (OS|
|00004cf0| 45 72 72 29 20 45 78 63 | 65 70 74 5f 45 72 72 6f |Err) Exc|ept_Erro|
|00004d00| 72 28 29 3b 0d 09 09 50 | 72 6f 63 65 73 73 45 72 |r();...P|rocessEr|
|00004d10| 72 6f 72 28 65 72 72 2c | 20 6f 66 66 65 6e 64 69 |ror(err,| offendi|
|00004d20| 6e 67 4f 62 6a 65 63 74 | 2c 20 72 65 70 6c 79 29 |ngObject|, reply)|
|00004d30| 3b 0d 09 09 7d 0d 09 45 | 4e 44 54 52 59 0d 09 0d |;...}..E|NDTRY...|
|00004d40| 09 64 65 6c 65 74 65 20 | 74 72 61 6e 73 61 63 74 |.delete |transact|
|00004d50| 69 6f 6e 3b 0d 09 6f 62 | 6a 65 63 74 53 70 65 63 |ion;..ob|jectSpec|
|00004d60| 69 66 69 65 72 4c 69 73 | 74 2e 44 69 73 70 6f 73 |ifierLis|t.Dispos|
|00004d70| 65 28 29 3b 0d 09 64 69 | 72 65 63 74 4f 62 6a 65 |e();..di|rectObje|
|00004d80| 63 74 54 6f 6b 65 6e 2e | 44 69 73 70 6f 73 65 54 |ctToken.|DisposeT|
|00004d90| 6f 6b 65 6e 28 29 3b 0d | 09 72 65 73 75 6c 74 4c |oken();.|.resultL|
|00004da0| 69 73 74 2e 44 69 73 70 | 6f 73 65 28 29 3b 0d 09 |ist.Disp|ose();..|
|00004db0| 6f 66 66 65 6e 64 69 6e | 67 4f 62 6a 65 63 74 2e |offendin|gObject.|
|00004dc0| 44 69 73 70 6f 73 65 28 | 29 3b 0d 09 0d 09 72 65 |Dispose(|);....re|
|00004dd0| 74 75 72 6e 20 65 72 72 | 3b 0d 09 7d 20 2f 2f 20 |turn err|;..} // |
|00004de0| 54 43 6f 72 65 53 75 69 | 74 65 3a 3a 44 6f 43 6f |TCoreSui|te::DoCo|
|00004df0| 6d 6d 61 6e 64 20 0d 0d | 2f 2f 2d 2d 2d 2d 2d 2d |mmand ..|//------|
|00004e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e50| 2d 2d 0d 2f 2f 20 54 43 | 6f 72 65 53 75 69 74 65 |--.// TC|oreSuite|
|00004e60| 3a 3a 44 6f 4f 70 65 6e | 3a 20 0d 2f 2f 2d 2d 2d |::DoOpen|: .//---|
|00004e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ec0| 2d 2d 2d 2d 2d 0d 70 61 | 73 63 61 6c 20 4f 53 45 |-----.pa|scal OSE|
|00004ed0| 72 72 20 54 43 6f 72 65 | 53 75 69 74 65 3a 3a 44 |rr TCore|Suite::D|
|00004ee0| 6f 4f 70 65 6e 28 54 41 | 45 76 65 6e 74 26 20 61 |oOpen(TA|Event& a|
|00004ef0| 65 2c 20 54 41 45 76 65 | 6e 74 26 20 72 65 70 6c |e, TAEve|nt& repl|
|00004f00| 79 2c 20 6c 6f 6e 67 20 | 72 65 66 43 6f 6e 29 0d |y, long |refCon).|
|00004f10| 09 7b 0d 09 4f 53 45 72 | 72 20 65 72 72 20 3d 20 |.{..OSEr|r err = |
|00004f20| 6e 6f 45 72 72 3b 0d 09 | 0d 09 54 44 65 73 63 72 |noErr;..|..TDescr|
|00004f30| 69 70 74 6f 72 20 6f 62 | 6a 65 63 74 53 70 65 63 |iptor ob|jectSpec|
|00004f40| 69 66 69 65 72 4c 69 73 | 74 3b 0d 09 54 54 6f 6b |ifierLis|t;..TTok|
|00004f50| 65 6e 44 65 73 63 72 69 | 70 74 6f 72 20 64 69 72 |enDescri|ptor dir|
|00004f60| 65 63 74 4f 62 6a 65 63 | 74 54 6f 6b 65 6e 3b 0d |ectObjec|tToken;.|
|00004f70| 09 54 44 65 73 63 72 69 | 70 74 6f 72 20 72 65 73 |.TDescri|ptor res|
|00004f80| 75 6c 74 4c 69 73 74 3b | 0d 09 54 44 65 73 63 72 |ultList;|..TDescr|
|00004f90| 69 70 74 6f 72 20 6e 6f | 4f 70 74 69 6f 6e 61 6c |iptor no|Optional|
|00004fa0| 50 61 72 61 6d 65 74 65 | 72 73 3b 0d 09 54 54 6f |Paramete|rs;..TTo|
|00004fb0| 6b 65 6e 44 65 73 63 72 | 69 70 74 6f 72 20 61 70 |kenDescr|iptor ap|
|00004fc0| 70 54 6f 4f 70 65 6e 57 | 69 74 68 3b 0d 09 54 44 |pToOpenW|ith;..TD|
|00004fd0| 65 73 63 72 69 70 74 6f | 72 20 72 65 73 75 6c 74 |escripto|r result|
|00004fe0| 44 65 73 63 72 69 70 74 | 6f 72 3b 0d 09 54 44 65 |Descript|or;..TDe|
|00004ff0| 73 63 72 69 70 74 6f 72 | 20 6f 66 66 65 6e 64 69 |scriptor| offendi|
|00005000| 6e 67 4f 62 6a 65 63 74 | 3b 0d 09 54 54 72 61 6e |ngObject|;..TTran|
|00005010| 73 61 63 74 69 6f 6e 2a | 20 74 72 61 6e 73 61 63 |saction*| transac|
|00005020| 74 69 6f 6e 20 3d 20 6e | 69 6c 3b 0d 09 4e 4f 52 |tion = n|il;..NOR|
|00005030| 45 47 49 53 54 45 52 28 | 74 72 61 6e 73 61 63 74 |EGISTER(|transact|
|00005040| 69 6f 6e 29 3b 0d 0d 09 | 54 52 59 0d 09 09 7b 0d |ion);...|TRY...{.|
|00005050| 09 09 6f 62 6a 65 63 74 | 53 70 65 63 69 66 69 65 |..object|Specifie|
|00005060| 72 4c 69 73 74 20 3d 20 | 61 65 2e 47 65 74 44 65 |rList = |ae.GetDe|
|00005070| 73 63 72 69 70 74 6f 72 | 28 6b 65 79 44 69 72 65 |scriptor|(keyDire|
|00005080| 63 74 4f 62 6a 65 63 74 | 29 3b 0d 09 09 0d 09 09 |ctObject|);......|
|00005090| 74 72 61 6e 73 61 63 74 | 69 6f 6e 20 3d 20 6e 65 |transact|ion = ne|
|000050a0| 77 20 54 54 72 61 6e 73 | 61 63 74 69 6f 6e 3b 0d |w TTrans|action;.|
|000050b0| 09 09 0d 09 09 2f 2f 0d | 09 09 2f 2f 20 49 74 27 |.....//.|..// It'|
|000050c0| 73 20 6c 65 67 61 6c 20 | 74 6f 20 73 61 79 20 22 |s legal |to say "|
|000050d0| 6f 70 65 6e 20 61 6c 69 | 61 73 2e 2e 2e 22 20 28 |open ali|as..." (|
|000050e0| 69 6e 20 66 61 63 74 2c | 20 63 6f 6d 6d 6f 6e 29 |in fact,| common)|
|000050f0| 2e 0d 09 09 2f 2f 20 49 | 6e 20 74 68 61 74 20 63 |....// I|n that c|
|00005100| 61 73 65 2c 20 73 65 6e | 64 20 74 68 65 20 6f 70 |ase, sen|d the op|
|00005110| 65 6e 20 73 74 72 61 69 | 67 68 74 20 74 6f 20 74 |en strai|ght to t|
|00005120| 68 65 20 6e 75 6c 6c 20 | 63 6f 6e 74 61 69 6e 65 |he null |containe|
|00005130| 72 2e 0d 09 09 2f 2f 0d | 09 09 2f 2f 20 50 65 72 |r....//.|..// Per|
|00005140| 20 63 6f 6e 76 65 6e 74 | 69 6f 6e 2c 20 74 68 6f | convent|ion, tho|
|00005150| 75 67 68 2c 20 74 68 65 | 20 46 69 6e 64 65 72 20 |ugh, the| Finder |
|00005160| 61 6c 77 61 79 73 20 73 | 65 6e 64 73 20 61 20 6c |always s|ends a l|
|00005170| 69 73 74 0d 09 09 2f 2f | 20 6f 66 20 61 6c 69 61 |ist...//| of alia|
|00005180| 73 20 6f 72 20 46 53 53 | 70 65 63 20 64 65 73 63 |s or FSS|pec desc|
|00005190| 72 69 70 74 6f 72 73 2c | 20 65 76 65 6e 20 69 66 |riptors,| even if|
|000051a0| 20 6f 6e 6c 79 20 6f 6e | 65 20 69 74 65 6d 0d 09 | only on|e item..|
|000051b0| 09 2f 2f 20 77 61 73 20 | 6f 70 65 6e 65 64 2e 0d |.// was |opened..|
|000051c0| 09 09 2f 2f 0d 09 09 69 | 66 28 28 6f 62 6a 65 63 |..//...i|f((objec|
|000051d0| 74 53 70 65 63 69 66 69 | 65 72 4c 69 73 74 2e 44 |tSpecifi|erList.D|
|000051e0| 65 73 63 72 69 70 74 6f | 72 54 79 70 65 28 29 20 |escripto|rType() |
|000051f0| 3d 3d 20 74 79 70 65 41 | 6c 69 61 73 29 20 7c 7c |== typeA|lias) |||
|00005200| 20 28 6f 62 6a 65 63 74 | 53 70 65 63 69 66 69 65 | (object|Specifie|
|00005210| 72 4c 69 73 74 2e 44 65 | 73 63 72 69 70 74 6f 72 |rList.De|scriptor|
|00005220| 54 79 70 65 28 29 20 3d | 3d 20 74 79 70 65 46 53 |Type() =|= typeFS|
|00005230| 53 29 20 7c 7c 20 28 6f | 62 6a 65 63 74 53 70 65 |S) || (o|bjectSpe|
|00005240| 63 69 66 69 65 72 4c 69 | 73 74 2e 44 65 73 63 72 |cifierLi|st.Descr|
|00005250| 69 70 74 6f 72 54 79 70 | 65 28 29 20 3d 3d 20 74 |iptorTyp|e() == t|
|00005260| 79 70 65 41 45 4c 69 73 | 74 29 29 0d 09 09 09 7b |ypeAELis|t))....{|
|00005270| 0d 09 09 09 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |....dire|ctObject|
|00005280| 54 6f 6b 65 6e 20 3d 20 | 43 72 65 61 74 65 4e 75 |Token = |CreateNu|
|00005290| 6c 6c 43 6f 6e 74 61 69 | 6e 65 72 54 6f 6b 65 6e |llContai|nerToken|
|000052a0| 28 29 3b 0d 09 09 09 54 | 41 62 73 74 72 61 63 74 |();....T|Abstract|
|000052b0| 53 63 72 69 70 74 61 62 | 6c 65 4f 62 6a 65 63 74 |Scriptab|leObject|
|000052c0| 2a 20 74 6f 6b 65 6e 20 | 3d 20 64 69 72 65 63 74 |* token |= direct|
|000052d0| 4f 62 6a 65 63 74 54 6f | 6b 65 6e 2e 54 6f 6b 65 |ObjectTo|ken.Toke|
|000052e0| 6e 4f 62 6a 65 63 74 28 | 29 3b 0d 09 09 09 72 65 |nObject(|);....re|
|000052f0| 73 75 6c 74 4c 69 73 74 | 20 3d 20 74 6f 6b 65 6e |sultList| = token|
|00005300| 2d 3e 41 45 43 6f 6d 6d | 61 6e 64 28 74 72 61 6e |->AEComm|and(tran|
|00005310| 73 61 63 74 69 6f 6e 2c | 20 61 65 2c 20 72 65 70 |saction,| ae, rep|
|00005320| 6c 79 2c 20 72 65 66 43 | 6f 6e 29 3b 0d 09 09 09 |ly, refC|on);....|
|00005330| 7d 0d 09 09 2f 2f 0d 09 | 09 2f 2f 20 49 66 20 74 |}...//..|.// If t|
|00005340| 68 65 20 64 69 72 65 63 | 74 20 6f 62 6a 65 63 74 |he direc|t object|
|00005350| 20 69 73 6e 27 74 20 61 | 6e 20 61 6c 69 61 73 2f | isn't a|n alias/|
|00005360| 66 73 73 70 65 63 0d 09 | 09 2f 2f 20 74 68 65 6e |fsspec..|.// then|
|00005370| 20 72 65 73 6f 6c 76 65 | 20 61 6e 64 20 70 72 6f | resolve| and pro|
|00005380| 63 65 73 73 20 69 74 20 | 61 73 20 75 73 75 61 6c |cess it |as usual|
|00005390| 0d 09 09 2f 2f 0d 09 09 | 65 6c 73 65 0d 09 09 09 |...//...|else....|
|000053a0| 7b 0d 09 09 09 64 69 72 | 65 63 74 4f 62 6a 65 63 |{....dir|ectObjec|
|000053b0| 74 54 6f 6b 65 6e 20 3d | 20 6f 62 6a 65 63 74 53 |tToken =| objectS|
|000053c0| 70 65 63 69 66 69 65 72 | 4c 69 73 74 2e 52 65 73 |pecifier|List.Res|
|000053d0| 6f 6c 76 65 28 74 72 61 | 6e 73 61 63 74 69 6f 6e |olve(tra|nsaction|
|000053e0| 2c 20 26 6f 66 66 65 6e | 64 69 6e 67 4f 62 6a 65 |, &offen|dingObje|
|000053f0| 63 74 29 3b 0d 09 09 09 | 54 41 62 73 74 72 61 63 |ct);....|TAbstrac|
|00005400| 74 53 63 72 69 70 74 61 | 62 6c 65 4f 62 6a 65 63 |tScripta|bleObjec|
|00005410| 74 2a 20 74 6f 6b 65 6e | 20 3d 20 64 69 72 65 63 |t* token| = direc|
|00005420| 74 4f 62 6a 65 63 74 54 | 6f 6b 65 6e 2e 54 6f 6b |tObjectT|oken.Tok|
|00005430| 65 6e 4f 62 6a 65 63 74 | 28 29 3b 0d 09 09 09 09 |enObject|();.....|
|00005440| 7b 0d 09 09 09 09 72 65 | 73 75 6c 74 44 65 73 63 |{.....re|sultDesc|
|00005450| 72 69 70 74 6f 72 20 3d | 20 74 6f 6b 65 6e 2d 3e |riptor =| token->|
|00005460| 41 45 43 6f 6d 6d 61 6e | 64 28 74 72 61 6e 73 61 |AEComman|d(transa|
|00005470| 63 74 69 6f 6e 2c 20 61 | 65 2c 20 72 65 70 6c 79 |ction, a|e, reply|
|00005480| 2c 20 72 65 66 43 6f 6e | 29 3b 0d 09 09 09 09 72 |, refCon|);.....r|
|00005490| 65 73 75 6c 74 4c 69 73 | 74 2e 41 64 6f 70 74 4c |esultLis|t.AdoptL|
|000054a0| 69 73 74 28 26 72 65 73 | 75 6c 74 44 65 73 63 72 |ist(&res|ultDescr|
|000054b0| 69 70 74 6f 72 29 3b 0d | 09 09 09 09 72 65 73 75 |iptor);.|....resu|
|000054c0| 6c 74 44 65 73 63 72 69 | 70 74 6f 72 2e 4d 61 6b |ltDescri|ptor.Mak|
|000054d0| 65 4e 75 6c 6c 28 29 3b | 0d 09 09 09 09 7d 0d 09 |eNull();|.....}..|
|000054e0| 09 09 7d 0d 09 09 0d 09 | 09 74 72 61 6e 73 61 63 |..}.....|.transac|
|000054f0| 74 69 6f 6e 2d 3e 43 6f | 6d 6d 69 74 43 68 61 6e |tion->Co|mmitChan|
|00005500| 67 65 73 28 29 3b 0d 09 | 09 0d 09 09 72 65 70 6c |ges();..|....repl|
|00005510| 79 2e 50 75 74 52 65 73 | 75 6c 74 28 72 65 73 75 |y.PutRes|ult(resu|
|00005520| 6c 74 4c 69 73 74 29 3b | 0d 09 09 7d 0d 09 45 58 |ltList);|...}..EX|
|00005530| 43 45 50 54 0d 09 09 7b | 0d 09 09 72 65 73 75 6c |CEPT...{|...resul|
|00005540| 74 44 65 73 63 72 69 70 | 74 6f 72 2e 44 69 73 70 |tDescrip|tor.Disp|
|00005550| 6f 73 65 28 29 3b 0d 09 | 09 65 72 72 20 3d 20 28 |ose();..|.err = (|
|00005560| 4f 53 45 72 72 29 45 78 | 63 65 70 74 5f 45 72 72 |OSErr)Ex|cept_Err|
|00005570| 6f 72 28 29 3b 0d 09 09 | 50 72 6f 63 65 73 73 45 |or();...|ProcessE|
|00005580| 72 72 6f 72 28 65 72 72 | 2c 20 6f 66 66 65 6e 64 |rror(err|, offend|
|00005590| 69 6e 67 4f 62 6a 65 63 | 74 2c 20 72 65 70 6c 79 |ingObjec|t, reply|
|000055a0| 29 3b 0d 09 09 7d 0d 09 | 45 4e 44 54 52 59 0d 0d |);...}..|ENDTRY..|
|000055b0| 09 64 65 6c 65 74 65 20 | 74 72 61 6e 73 61 63 74 |.delete |transact|
|000055c0| 69 6f 6e 3b 0d 09 6f 62 | 6a 65 63 74 53 70 65 63 |ion;..ob|jectSpec|
|000055d0| 69 66 69 65 72 4c 69 73 | 74 2e 44 69 73 70 6f 73 |ifierLis|t.Dispos|
|000055e0| 65 28 29 3b 0d 09 64 69 | 72 65 63 74 4f 62 6a 65 |e();..di|rectObje|
|000055f0| 63 74 54 6f 6b 65 6e 2e | 44 69 73 70 6f 73 65 54 |ctToken.|DisposeT|
|00005600| 6f 6b 65 6e 28 29 3b 0d | 09 72 65 73 75 6c 74 4c |oken();.|.resultL|
|00005610| 69 73 74 2e 44 69 73 70 | 6f 73 65 28 29 3b 0d 09 |ist.Disp|ose();..|
|00005620| 61 70 70 54 6f 4f 70 65 | 6e 57 69 74 68 2e 44 69 |appToOpe|nWith.Di|
|00005630| 73 70 6f 73 65 54 6f 6b | 65 6e 28 29 3b 0d 09 6f |sposeTok|en();..o|
|00005640| 66 66 65 6e 64 69 6e 67 | 4f 62 6a 65 63 74 2e 44 |ffending|Object.D|
|00005650| 69 73 70 6f 73 65 28 29 | 3b 0d 09 0d 09 72 65 74 |ispose()|;....ret|
|00005660| 75 72 6e 20 65 72 72 3b | 0d 09 7d 20 2f 2f 20 54 |urn err;|..} // T|
|00005670| 43 6f 72 65 53 75 69 74 | 65 3a 3a 44 6f 4f 70 65 |CoreSuit|e::DoOpe|
|00005680| 6e 20 0d 0d 23 69 66 20 | 30 0d 0d 2f 2f 0d 2f 2f |n ..#if |0..//.//|
|00005690| 20 41 20 6d 6f 72 65 20 | 67 65 6e 65 72 69 63 20 | A more |generic |
|000056a0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 27 44 6f 4f 70 |version |of 'DoOp|
|000056b0| 65 6e 2c 27 20 66 6f 72 | 20 61 70 70 6c 69 63 61 |en,' for| applica|
|000056c0| 74 69 6f 6e 73 20 74 68 | 61 74 20 63 61 6e 20 72 |tions th|at can r|
|000056d0| 65 73 6f 6c 76 65 0d 2f | 2f 20 65 76 65 72 79 20 |esolve./|/ every |
|000056e0| 6f 62 6a 65 63 74 20 73 | 70 65 63 69 66 69 65 72 |object s|pecifier|
|000056f0| 20 74 68 61 74 20 74 68 | 65 20 46 69 6e 64 65 72 | that th|e Finder|
|00005700| 20 63 61 6e 3a 0d 2f 2f | 0d 0d 2f 2f 2d 2d 2d 2d | can:.//|..//----|
|00005710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005760| 2d 2d 2d 2d 0d 2f 2f 20 | 54 43 6f 72 65 53 75 69 |----.// |TCoreSui|
|00005770| 74 65 3a 3a 44 6f 4f 70 | 65 6e 3a 20 0d 2f 2f 2d |te::DoOp|en: .//-|
|00005780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057d0| 2d 2d 2d 2d 2d 2d 2d 0d | 70 61 73 63 61 6c 20 4f |-------.|pascal O|
|000057e0| 53 45 72 72 20 54 43 6f | 72 65 53 75 69 74 65 3a |SErr TCo|reSuite:|
|000057f0| 3a 44 6f 4f 70 65 6e 28 | 54 41 45 76 65 6e 74 26 |:DoOpen(|TAEvent&|
|00005800| 20 61 65 2c 20 54 41 45 | 76 65 6e 74 26 20 72 65 | ae, TAE|vent& re|
|00005810| 70 6c 79 2c 20 6c 6f 6e | 67 20 72 65 66 43 6f 6e |ply, lon|g refCon|
|00005820| 29 0d 09 7b 0d 09 4f 53 | 45 72 72 20 65 72 72 20 |)..{..OS|Err err |
|00005830| 3d 20 6e 6f 45 72 72 3b | 0d 09 0d 09 54 44 65 73 |= noErr;|....TDes|
|00005840| 63 72 69 70 74 6f 72 20 | 6f 62 6a 65 63 74 53 70 |criptor |objectSp|
|00005850| 65 63 69 66 69 65 72 4c | 69 73 74 3b 0d 09 54 54 |ecifierL|ist;..TT|
|00005860| 6f 6b 65 6e 44 65 73 63 | 72 69 70 74 6f 72 20 64 |okenDesc|riptor d|
|00005870| 69 72 65 63 74 4f 62 6a | 65 63 74 54 6f 6b 65 6e |irectObj|ectToken|
|00005880| 3b 0d 09 54 44 65 73 63 | 72 69 70 74 6f 72 20 72 |;..TDesc|riptor r|
|00005890| 65 73 75 6c 74 4c 69 73 | 74 3b 0d 09 54 44 65 73 |esultLis|t;..TDes|
|000058a0| 63 72 69 70 74 6f 72 20 | 6e 6f 4f 70 74 69 6f 6e |criptor |noOption|
|000058b0| 61 6c 50 61 72 61 6d 65 | 74 65 72 73 3b 0d 09 54 |alParame|ters;..T|
|000058c0| 44 65 73 63 72 69 70 74 | 6f 72 20 6f 70 65 6e 55 |Descript|or openU|
|000058d0| 73 69 6e 67 3b 0d 09 54 | 54 6f 6b 65 6e 44 65 73 |sing;..T|TokenDes|
|000058e0| 63 72 69 70 74 6f 72 20 | 61 70 70 54 6f 4f 70 65 |criptor |appToOpe|
|000058f0| 6e 57 69 74 68 3b 0d 09 | 54 44 65 73 63 72 69 70 |nWith;..|TDescrip|
|00005900| 74 6f 72 20 72 65 73 75 | 6c 74 44 65 73 63 72 69 |tor resu|ltDescri|
|00005910| 70 74 6f 72 3b 0d 09 54 | 54 72 61 6e 73 61 63 74 |ptor;..T|Transact|
|00005920| 69 6f 6e 2a 20 74 72 61 | 6e 73 61 63 74 69 6f 6e |ion* tra|nsaction|
|00005930| 20 3d 20 6e 69 6c 3b 0d | 09 4e 4f 52 45 47 49 53 | = nil;.|.NOREGIS|
|00005940| 54 45 52 28 74 72 61 6e | 73 61 63 74 69 6f 6e 29 |TER(tran|saction)|
|00005950| 3b 0d 09 0d 09 54 52 59 | 0d 09 09 7b 0d 09 09 74 |;....TRY|...{...t|
|00005960| 72 61 6e 73 61 63 74 69 | 6f 6e 20 3d 20 6e 65 77 |ransacti|on = new|
|00005970| 20 54 54 72 61 6e 73 61 | 63 74 69 6f 6e 3b 0d 09 | TTransa|ction;..|
|00005980| 09 6f 62 6a 65 63 74 53 | 70 65 63 69 66 69 65 72 |.objectS|pecifier|
|00005990| 4c 69 73 74 20 3d 20 61 | 65 2e 47 65 74 44 65 73 |List = a|e.GetDes|
|000059a0| 63 72 69 70 74 6f 72 28 | 6b 65 79 44 69 72 65 63 |criptor(|keyDirec|
|000059b0| 74 4f 62 6a 65 63 74 29 | 3b 0d 09 09 64 69 72 65 |tObject)|;...dire|
|000059c0| 63 74 4f 62 6a 65 63 74 | 54 6f 6b 65 6e 20 3d 20 |ctObject|Token = |
|000059d0| 6f 62 6a 65 63 74 53 70 | 65 63 69 66 69 65 72 4c |objectSp|ecifierL|
|000059e0| 69 73 74 2e 52 65 73 6f | 6c 76 65 28 74 72 61 6e |ist.Reso|lve(tran|
|000059f0| 73 61 63 74 69 6f 6e 29 | 3b 0d 09 09 6f 70 65 6e |saction)|;...open|
|00005a00| 55 73 69 6e 67 20 3d 20 | 61 65 2e 47 65 74 4f 70 |Using = |ae.GetOp|
|00005a10| 74 69 6f 6e 61 6c 50 61 | 72 61 6d 65 74 65 72 28 |tionalPa|rameter(|
|00005a20| 6b 65 79 41 45 55 73 69 | 6e 67 29 3b 0d 09 09 0d |keyAEUsi|ng);....|
|00005a30| 09 09 2f 2f 0d 09 09 2f | 2f 20 49 66 20 74 68 65 |..//.../|/ If the|
|00005a40| 72 65 20 69 73 20 61 6e | 20 27 6f 70 65 6e 20 75 |re is an| 'open u|
|00005a50| 73 69 6e 67 27 20 70 61 | 72 61 6d 65 74 65 72 2c |sing' pa|rameter,|
|00005a60| 20 74 68 65 6e 20 73 65 | 6e 64 20 74 68 65 0d 09 | then se|nd the..|
|00005a70| 09 2f 2f 20 6f 70 65 6e | 20 63 6f 6d 6d 61 6e 64 |.// open| command|
|00005a80| 20 74 6f 20 69 74 3b 20 | 74 68 65 20 6f 70 74 69 | to it; |the opti|
|00005a90| 6f 6e 61 6c 20 70 61 72 | 61 6d 65 74 65 72 20 69 |onal par|ameter i|
|00005aa0| 73 20 74 68 65 0d 09 09 | 2f 2f 20 6c 69 73 74 20 |s the...|// list |
|00005ab0| 6f 66 20 64 6f 63 75 6d | 65 6e 74 73 20 74 6f 20 |of docum|ents to |
|00005ac0| 6f 70 65 6e 0d 09 09 2f | 2f 0d 09 09 69 66 28 6f |open.../|/...if(o|
|00005ad0| 70 65 6e 55 73 69 6e 67 | 2e 44 65 73 63 72 69 70 |penUsing|.Descrip|
|00005ae0| 74 6f 72 54 79 70 65 28 | 29 20 21 3d 20 74 79 70 |torType(|) != typ|
|00005af0| 65 4e 75 6c 6c 29 0d 09 | 09 09 7b 0d 09 09 09 61 |eNull)..|..{....a|
|00005b00| 70 70 54 6f 4f 70 65 6e | 57 69 74 68 20 3d 20 6f |ppToOpen|With = o|
|00005b10| 70 65 6e 55 73 69 6e 67 | 2e 52 65 73 6f 6c 76 65 |penUsing|.Resolve|
|00005b20| 28 74 72 61 6e 73 61 63 | 74 69 6f 6e 2c 20 26 6f |(transac|tion, &o|
|00005b30| 66 66 65 6e 64 69 6e 67 | 4f 62 6a 65 63 74 29 3b |ffending|Object);|
|00005b40| 0d 09 09 09 0d 09 09 09 | 54 41 62 73 74 72 61 63 |........|TAbstrac|
|00005b50| 74 53 63 72 69 70 74 61 | 62 6c 65 4f 62 6a 65 63 |tScripta|bleObjec|
|00005b60| 74 2a 20 74 6f 6b 65 6e | 20 3d 20 61 70 70 54 6f |t* token| = appTo|
|00005b70| 4f 70 65 6e 57 69 74 68 | 2e 54 6f 6b 65 6e 4f 62 |OpenWith|.TokenOb|
|00005b80| 6a 65 63 74 28 29 3b 0d | 09 09 09 09 7b 09 09 09 |ject();.|....{...|
|00005b90| 09 0d 09 09 09 09 72 65 | 73 75 6c 74 44 65 73 63 |......re|sultDesc|
|00005ba0| 72 69 70 74 6f 72 20 3d | 20 74 6f 6b 65 6e 2d 3e |riptor =| token->|
|00005bb0| 41 45 43 6f 6d 6d 61 6e | 64 28 74 72 61 6e 73 61 |AEComman|d(transa|
|00005bc0| 63 74 69 6f 6e 2c 20 61 | 65 2c 20 72 65 70 6c 79 |ction, a|e, reply|
|00005bd0| 2c 20 72 65 66 43 6f 6e | 2c 20 64 69 72 65 63 74 |, refCon|, direct|
|00005be0| 4f 62 6a 65 63 74 54 6f | 6b 65 6e 2e 54 6f 6b 65 |ObjectTo|ken.Toke|
|00005bf0| 6e 4f 62 6a 65 63 74 28 | 29 29 3b 0d 09 09 09 09 |nObject(|));.....|
|00005c00| 72 65 73 75 6c 74 4c 69 | 73 74 2e 41 64 6f 70 74 |resultLi|st.Adopt|
|00005c10| 4c 69 73 74 28 26 72 65 | 73 75 6c 74 44 65 73 63 |List(&re|sultDesc|
|00005c20| 72 69 70 74 6f 72 29 3b | 0d 09 09 09 09 72 65 73 |riptor);|.....res|
|00005c30| 75 6c 74 44 65 73 63 72 | 69 70 74 6f 72 2e 4d 61 |ultDescr|iptor.Ma|
|00005c40| 6b 65 4e 75 6c 6c 28 29 | 3b 0d 09 09 09 09 7d 0d |keNull()|;.....}.|
|00005c50| 09 09 09 7d 0d 09 09 2f | 2f 0d 09 09 2f 2f 20 49 |...}.../|/...// I|
|00005c60| 66 20 74 68 65 72 65 20 | 69 73 20 6e 6f 20 27 6f |f there |is no 'o|
|00005c70| 70 65 6e 20 75 73 69 6e | 67 27 20 70 61 72 61 6d |pen usin|g' param|
|00005c80| 65 74 65 72 2c 20 74 68 | 65 6e 20 74 68 69 73 0d |eter, th|en this.|
|00005c90| 09 09 2f 2f 20 63 6f 6d | 6d 61 6e 64 20 62 65 68 |..// com|mand beh|
|00005ca0| 61 76 65 73 20 6a 75 73 | 74 20 6c 69 6b 65 20 22 |aves jus|t like "|
|00005cb0| 3a 3a 44 6f 43 6f 6d 6d | 61 6e 64 22 0d 09 09 2f |::DoComm|and".../|
|00005cc0| 2f 0d 09 09 65 6c 73 65 | 0d 09 09 09 7b 0d 09 09 |/...else|....{...|
|00005cd0| 09 54 41 62 73 74 72 61 | 63 74 53 63 72 69 70 74 |.TAbstra|ctScript|
|00005ce0| 61 62 6c 65 4f 62 6a 65 | 63 74 2a 20 74 6f 6b 65 |ableObje|ct* toke|
|00005cf0| 6e 20 3d 20 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |n = dire|ctObject|
|00005d00| 54 6f 6b 65 6e 2e 54 6f | 6b 65 6e 4f 62 6a 65 63 |Token.To|kenObjec|
|00005d10| 74 28 29 3b 0d 09 09 09 | 09 7b 0d 09 09 09 09 72 |t();....|.{.....r|
|00005d20| 65 73 75 6c 74 44 65 73 | 63 72 69 70 74 6f 72 20 |esultDes|criptor |
|00005d30| 3d 20 74 6f 6b 65 6e 2d | 3e 41 45 43 6f 6d 6d 61 |= token-|>AEComma|
|00005d40| 6e 64 28 74 72 61 6e 73 | 61 63 74 69 6f 6e 2c 20 |nd(trans|action, |
|00005d50| 61 65 2c 20 72 65 70 6c | 79 2c 20 72 65 66 43 6f |ae, repl|y, refCo|
|00005d60| 6e 29 3b 0d 09 09 09 09 | 72 65 73 75 6c 74 4c 69 |n);.....|resultLi|
|00005d70| 73 74 2e 41 64 6f 70 74 | 4c 69 73 74 28 26 72 65 |st.Adopt|List(&re|
|00005d80| 73 75 6c 74 44 65 73 63 | 72 69 70 74 6f 72 29 3b |sultDesc|riptor);|
|00005d90| 0d 09 09 09 09 72 65 73 | 75 6c 74 44 65 73 63 72 |.....res|ultDescr|
|00005da0| 69 70 74 6f 72 2e 4d 61 | 6b 65 4e 75 6c 6c 28 29 |iptor.Ma|keNull()|
|00005db0| 3b 0d 09 09 09 09 7d 0d | 09 09 09 7d 0d 09 09 74 |;.....}.|...}...t|
|00005dc0| 72 61 6e 73 61 63 74 69 | 6f 6e 2d 3e 43 6f 6d 6d |ransacti|on->Comm|
|00005dd0| 69 74 43 68 61 6e 67 65 | 73 28 29 3b 0d 09 09 72 |itChange|s();...r|
|00005de0| 65 70 6c 79 2e 50 75 74 | 52 65 73 75 6c 74 28 72 |eply.Put|Result(r|
|00005df0| 65 73 75 6c 74 4c 69 73 | 74 29 3b 0d 09 09 7d 0d |esultLis|t);...}.|
|00005e00| 09 45 58 43 45 50 54 0d | 09 09 7b 0d 09 09 72 65 |.EXCEPT.|..{...re|
|00005e10| 73 75 6c 74 44 65 73 63 | 72 69 70 74 6f 72 2e 44 |sultDesc|riptor.D|
|00005e20| 69 73 70 6f 73 65 28 29 | 3b 0d 09 09 65 72 72 20 |ispose()|;...err |
|00005e30| 3d 20 28 4f 53 45 72 72 | 29 45 78 63 65 70 74 5f |= (OSErr|)Except_|
|00005e40| 45 72 72 6f 72 28 29 3b | 0d 09 09 50 72 6f 63 65 |Error();|...Proce|
|00005e50| 73 73 45 72 72 6f 72 28 | 65 72 72 2c 20 6f 66 66 |ssError(|err, off|
|00005e60| 65 6e 64 69 6e 67 4f 62 | 6a 65 63 74 2c 20 72 65 |endingOb|ject, re|
|00005e70| 70 6c 79 29 3b 0d 09 09 | 7d 0d 09 45 4e 44 54 52 |ply);...|}..ENDTR|
|00005e80| 59 0d 09 0d 09 64 65 6c | 65 74 65 20 74 72 61 6e |Y....del|ete tran|
|00005e90| 73 61 63 74 69 6f 6e 3b | 0d 09 6f 62 6a 65 63 74 |saction;|..object|
|00005ea0| 53 70 65 63 69 66 69 65 | 72 4c 69 73 74 2e 44 69 |Specifie|rList.Di|
|00005eb0| 73 70 6f 73 65 28 29 3b | 0d 09 64 69 72 65 63 74 |spose();|..direct|
|00005ec0| 4f 62 6a 65 63 74 54 6f | 6b 65 6e 2e 44 69 73 70 |ObjectTo|ken.Disp|
|00005ed0| 6f 73 65 54 6f 6b 65 6e | 28 29 3b 0d 09 72 65 73 |oseToken|();..res|
|00005ee0| 75 6c 74 4c 69 73 74 2e | 44 69 73 70 6f 73 65 28 |ultList.|Dispose(|
|00005ef0| 29 3b 0d 09 6f 70 65 6e | 55 73 69 6e 67 2e 44 69 |);..open|Using.Di|
|00005f00| 73 70 6f 73 65 28 29 3b | 0d 09 61 70 70 54 6f 4f |spose();|..appToO|
|00005f10| 70 65 6e 57 69 74 68 2e | 44 69 73 70 6f 73 65 54 |penWith.|DisposeT|
|00005f20| 6f 6b 65 6e 28 29 3b 0d | 09 0d 09 72 65 74 75 72 |oken();.|...retur|
|00005f30| 6e 20 65 72 72 3b 0d 09 | 7d 20 2f 2f 20 54 43 6f |n err;..|} // TCo|
|00005f40| 72 65 53 75 69 74 65 3a | 3a 44 6f 4f 70 65 6e 20 |reSuite:|:DoOpen |
|00005f50| 0d 0d 23 65 6e 64 69 66 | 0d 0d 2f 2f 2d 2d 2d 2d |..#endif|..//----|
|00005f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005fb0| 2d 2d 2d 2d 0d 2f 2f 20 | 54 43 6f 72 65 53 75 69 |----.// |TCoreSui|
|00005fc0| 74 65 3a 3a 44 6f 4d 6f | 76 65 3a 20 0d 2f 2f 2d |te::DoMo|ve: .//-|
|00005fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006020| 2d 2d 2d 2d 2d 2d 2d 0d | 70 61 73 63 61 6c 20 4f |-------.|pascal O|
|00006030| 53 45 72 72 20 54 43 6f | 72 65 53 75 69 74 65 3a |SErr TCo|reSuite:|
|00006040| 3a 44 6f 4d 6f 76 65 28 | 54 41 45 76 65 6e 74 26 |:DoMove(|TAEvent&|
|00006050| 20 61 65 2c 20 54 41 45 | 76 65 6e 74 26 20 72 65 | ae, TAE|vent& re|
|00006060| 70 6c 79 2c 20 6c 6f 6e | 67 20 72 65 66 43 6f 6e |ply, lon|g refCon|
|00006070| 29 0d 09 7b 0d 09 4f 53 | 45 72 72 20 65 72 72 20 |)..{..OS|Err err |
|00006080| 3d 20 6e 6f 45 72 72 3b | 0d 09 0d 09 54 44 65 73 |= noErr;|....TDes|
|00006090| 63 72 69 70 74 6f 72 20 | 6f 62 6a 65 63 74 53 70 |criptor |objectSp|
|000060a0| 65 63 69 66 69 65 72 4c | 69 73 74 3b 0d 09 54 54 |ecifierL|ist;..TT|
|000060b0| 6f 6b 65 6e 44 65 73 63 | 72 69 70 74 6f 72 20 64 |okenDesc|riptor d|
|000060c0| 69 72 65 63 74 4f 62 6a | 65 63 74 54 6f 6b 65 6e |irectObj|ectToken|
|000060d0| 3b 0d 09 54 44 65 73 63 | 72 69 70 74 6f 72 20 72 |;..TDesc|riptor r|
|000060e0| 65 73 75 6c 74 4c 69 73 | 74 3b 0d 09 54 44 65 73 |esultLis|t;..TDes|
|000060f0| 63 72 69 70 74 6f 72 20 | 6e 6f 4f 70 74 69 6f 6e |criptor |noOption|
|00006100| 61 6c 50 61 72 61 6d 65 | 74 65 72 73 3b 0d 09 54 |alParame|ters;..T|
|00006110| 44 65 73 63 72 69 70 74 | 6f 72 20 64 65 73 74 69 |Descript|or desti|
|00006120| 6e 61 74 69 6f 6e 4f 62 | 6a 65 63 74 53 70 65 63 |nationOb|jectSpec|
|00006130| 69 66 69 65 72 3b 0d 09 | 54 44 65 73 63 72 69 70 |ifier;..|TDescrip|
|00006140| 74 6f 72 20 69 6e 73 65 | 72 74 69 6f 6e 4c 6f 63 |tor inse|rtionLoc|
|00006150| 61 74 69 6f 6e 3b 0d 09 | 54 54 6f 6b 65 6e 44 65 |ation;..|TTokenDe|
|00006160| 73 63 72 69 70 74 6f 72 | 20 64 65 73 74 69 6e 61 |scriptor| destina|
|00006170| 74 69 6f 6e 4f 62 6a 65 | 63 74 54 6f 6b 65 6e 3b |tionObje|ctToken;|
|00006180| 0d 09 54 44 65 73 63 72 | 69 70 74 6f 72 20 72 65 |..TDescr|iptor re|
|00006190| 73 75 6c 74 44 65 73 63 | 72 69 70 74 6f 72 3b 0d |sultDesc|riptor;.|
|000061a0| 09 54 44 65 73 63 72 69 | 70 74 6f 72 20 6f 66 66 |.TDescri|ptor off|
|000061b0| 65 6e 64 69 6e 67 4f 62 | 6a 65 63 74 3b 0d 09 54 |endingOb|ject;..T|
|000061c0| 54 72 61 6e 73 61 63 74 | 69 6f 6e 2a 20 74 72 61 |Transact|ion* tra|
|000061d0| 6e 73 61 63 74 69 6f 6e | 20 3d 20 6e 69 6c 3b 0d |nsaction| = nil;.|
|000061e0| 09 4e 4f 52 45 47 49 53 | 54 45 52 28 74 72 61 6e |.NOREGIS|TER(tran|
|000061f0| 73 61 63 74 69 6f 6e 29 | 3b 0d 09 0d 09 54 52 59 |saction)|;....TRY|
|00006200| 0d 09 09 7b 0d 09 09 74 | 72 61 6e 73 61 63 74 69 |...{...t|ransacti|
|00006210| 6f 6e 20 3d 20 6e 65 77 | 20 54 54 72 61 6e 73 61 |on = new| TTransa|
|00006220| 63 74 69 6f 6e 3b 0d 09 | 09 6f 62 6a 65 63 74 53 |ction;..|.objectS|
|00006230| 70 65 63 69 66 69 65 72 | 4c 69 73 74 20 3d 20 61 |pecifier|List = a|
|00006240| 65 2e 47 65 74 44 65 73 | 63 72 69 70 74 6f 72 28 |e.GetDes|criptor(|
|00006250| 6b 65 79 44 69 72 65 63 | 74 4f 62 6a 65 63 74 29 |keyDirec|tObject)|
|00006260| 3b 0d 09 09 64 69 72 65 | 63 74 4f 62 6a 65 63 74 |;...dire|ctObject|
|00006270| 54 6f 6b 65 6e 20 3d 20 | 6f 62 6a 65 63 74 53 70 |Token = |objectSp|
|00006280| 65 63 69 66 69 65 72 4c | 69 73 74 2e 52 65 73 6f |ecifierL|ist.Reso|
|00006290| 6c 76 65 28 74 72 61 6e | 73 61 63 74 69 6f 6e 2c |lve(tran|saction,|
|000062a0| 20 26 6f 66 66 65 6e 64 | 69 6e 67 4f 62 6a 65 63 | &offend|ingObjec|
|000062b0| 74 29 3b 0d 09 09 69 6e | 73 65 72 74 69 6f 6e 4c |t);...in|sertionL|
|000062c0| 6f 63 61 74 69 6f 6e 20 | 3d 20 61 65 2e 47 65 74 |ocation |= ae.Get|
|000062d0| 4f 70 74 69 6f 6e 61 6c | 50 61 72 61 6d 65 74 65 |Optional|Paramete|
|000062e0| 72 28 6b 65 79 41 45 49 | 6e 73 65 72 74 48 65 72 |r(keyAEI|nsertHer|
|000062f0| 65 29 3b 0d 09 09 0d 09 | 09 69 66 28 69 6e 73 65 |e);.....|.if(inse|
|00006300| 72 74 69 6f 6e 4c 6f 63 | 61 74 69 6f 6e 2e 49 73 |rtionLoc|ation.Is|
|00006310| 4e 75 6c 6c 44 65 73 63 | 72 69 70 74 6f 72 28 29 |NullDesc|riptor()|
|00006320| 20 26 26 20 28 72 65 66 | 43 6f 6e 20 3d 3d 20 6b | && (ref|Con == k|
|00006330| 41 45 43 6c 6f 6e 65 29 | 29 0d 09 09 09 7b 0d 09 |AEClone)|)....{..|
|00006340| 09 09 54 41 62 73 74 72 | 61 63 74 53 63 72 69 70 |..TAbstr|actScrip|
|00006350| 74 61 62 6c 65 4f 62 6a | 65 63 74 2a 20 74 6f 6b |tableObj|ect* tok|
|00006360| 65 6e 20 3d 20 64 69 72 | 65 63 74 4f 62 6a 65 63 |en = dir|ectObjec|
|00006370| 74 54 6f 6b 65 6e 2e 54 | 6f 6b 65 6e 4f 62 6a 65 |tToken.T|okenObje|
|00006380| 63 74 28 29 3b 0d 09 09 | 09 09 7b 0d 09 09 09 09 |ct();...|..{.....|
|00006390| 72 65 73 75 6c 74 44 65 | 73 63 72 69 70 74 6f 72 |resultDe|scriptor|
|000063a0| 20 3d 20 74 6f 6b 65 6e | 2d 3e 41 45 43 6f 6d 6d | = token|->AEComm|
|000063b0| 61 6e 64 44 69 73 70 61 | 74 63 68 28 74 72 61 6e |andDispa|tch(tran|
|000063c0| 73 61 63 74 69 6f 6e 2c | 20 61 65 2c 20 72 65 70 |saction,| ae, rep|
|000063d0| 6c 79 2c 20 6b 41 45 44 | 75 70 6c 69 63 61 74 65 |ly, kAED|uplicate|
|000063e0| 29 3b 0d 09 09 09 09 72 | 65 73 75 6c 74 4c 69 73 |);.....r|esultLis|
|000063f0| 74 2e 41 64 6f 70 74 4c | 69 73 74 28 26 72 65 73 |t.AdoptL|ist(&res|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.